Re: Can use perl for download photos from facebook?

I mean the Facebook.html file that you are scanning On Sat, Mar 19, 2022 at 9:17 PM William Torrez Corea wrote: > Here is the short code: > > https://gist.github.com/adipasquale/2217595 > > > > On Sat, Mar 19, 2022 at 8:10 PM Adam Hopkins > wrote: > >> D

Re: Can use perl for download photos from facebook?

Did you download Facebook.html and already have it sitting on your computer? Can you upload that to a gist and share it here? On Sat, Mar 19, 2022 at 8:48 PM William Torrez Corea wrote: > I have a short code: > > #!/usr/bin/perl; > @ARGV = ("Facebook.html"); > while(<>){ > while(/(http[a-z\-\.0

Re: about a regex

If you add an underscore (the equivalent of \w): [a-zA-Z0-9*_*] Then \W is the opposite. If you wanted to not match [a-zA-Z0-9] You could do $string !~ m/[a-zA-Z0-9]/ On Fri, Dec 31, 2021 at 10:23 PM Piper H wrote: > Hello > > I know [a-zA-Z0-9] means words and numbers. > But what's the re

Re: Substitution operator is not working in perl - Windows OS

Your filename is in a variable called $rtf1, is the file an RTF? Maybe something funny is going on with the file-format/encoding, and the first line doesn't contain %VERSION% when parsed by your script. You could try printing out the line in your script to see what it's trying to match: for(@arra

Regex character classes: n OR m

to know what a solution would look like? Adam

Re: Problem with SDL::Perl

$LD_LIBRARY_PATH was unset. I set it manually to the SDL Libs folder, and the error no longer happens. My test picture dosn't show up, but I think that's an issue I can hack through myself. Thanks you for all the help with this. #-

Re: Problem with SDL::Perl

he correct info. http://dl.dropbox.com/u/949632/build.text #-- Adam Fairbrother Help Desk Technician afairbrot...@sd73.bc.ca School District #73 - "Kartik Thakore" wrote: > > Hi, > H Adam, > > >

Re: Problem with SDL::Perl

Hi, It's been a week since I asked about this and No one has responded, Did I ask incorrectly or in the wrong mailing list? Any help that could be provided would be appreciated. Thanks, #-- Adam Fairbrother Help Desk Techn

Problem with SDL::Perl

ry at /usr/local/lib/perl/5.10.0/SDLx/Surface.pm line 188 SDLx::Surface::load('SDLx::Surface', 'pic.jpg') called at /usr/local/lib/perl/5.10.0/SDLx/Sprite.pm line 25 SDLx::Sprite::new('SDLx::Sprite', 'image', 'pic.jpg') called at ./slidesho

Testing a scalier for two possible values at once

I need to test a scalier to see if its value is not two possibilities, because this test is being done inside a while loop I can not use an elsif statement without things getting ugly. I have tried it like this if ($scalier nq 'A') || ($scalier nq 'B') { but that just gave me a syntax error wh

Re: Using hashes in a format

"John W. Krahn" wrote: > Adam Jimerson wrote: >> I am working on a program that will act as a contact manager of sorts, >> it uses two hashes to store everything (although the second one is >> commented >> out because I am not ready to work with it). I am us

Re: Using hashes in a format

(Randal L. Schwartz) wrote: >>>>>> "Adam" == Adam Jimerson writes: > > Adam> my %phone_numbers = (); > ... > Adam> $phone_numbers{$_} #needs to print the keys of the hash for the > name, and Adam> values for the phone number so it will be li

Using hashes in a format

I am working on a program that will act as a contact manager of sorts, it uses two hashes to store everything (although the second one is commented out because I am not ready to work with it). I am using the format function to display everything but I don't know how to get it to show the keys

Re: Is there some IDE dedicated to perl?

-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 sanket vaidya wrote: > > Instead of going for IDE It would be better to download Perl Interpreter & > use some editor. For Windows few editors are Crimson, Context, Perl Express > etc. I use Perl Express. > I played with Perl Express a bit and wasn'

Re: Reading a list of numbers from a file into a array

Thanks for the help. "John W. Krahn" wrote: > vendion wrote: >> Hello I am having trouble finding the correct syntax for reading a >> list of numbers from a file, it is open and can read from it, I tried >> with >> while () { >> chomp; >> @some_array = $_; >> print "@some_array\n"; >> } > > my @

Re: [regexp] Multi-level pattern matching

will catch things like and , but I had to cheat (as you can see in the code below). As far as I can tell, this will work for the cases mentioned above, as well as cases that have multiple tags on one line (something that previous snippit didn't do). Now see if it works for you. A

[regexp] Multi-level pattern matching

ering if there is a way to get the stuff in tags in comments "lowercased" as well. Thanks! Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: [Subroutine Optimization] Shift vs. @_

r to avoid having to copies of some long list in both @d and @_. Yes? And I understand that it doesn't matter too much compared to the overhead of calling the subroutine in the first place, but I'm just curious. Thanks, Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additio

[Subroutine Optimization] Shift vs. @_

e it this way? Thanks, Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Does anyone have "coconet.dat"?

post it? This is not critical, but it would be nice to have. Thanks, Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: [regexp] Speaking of the /s modifier...

Hans Meier (John Doe) wrote: Adam W am Mittwoch, 8. März 2006 00.49: Sorry, I'm relatively new to programming in general (perl is my first programming language), so I'm not sure what you mean by "sanitizing." Could also be "sanitising", saw both :-) I&#x

Re: [regexp] Speaking of the /s modifier...

Hans Meier (John Doe) wrote: Adam W am Dienstag, 7. März 2006 23.16: Hans Meier (John Doe) wrote: just to sum up: $test =~ s{ (.*?) \( (.*?) \) } {$1}xsg; - "\(" instead of "[(]": more readable - no /m modifier : unnecessary with

Re: [regexp] Speaking of the /s modifier...

Hans Meier (John Doe) wrote: Adam, just to sum up: $test =~ s{ (.*?) \( (.*?) \) } {$1}xsg; - "\(" instead of "[(]": more readable - no /m modifier : unnecessary without ^/$-anchors - /s : may be appropriate for your html source t

Re: [regexp] Warnings on Backreferences

? Can you tell me what the function of the square-brackets are for regexps? How are they different than regular parens? Thanks, Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: [regexp] Warnings on Backreferences

John W. Krahn wrote: Adam W wrote: Here is an example of one of my regexps that produces this warning: $text =~ s!(.*?)(\()(.*?)(\))!\1<\/a>!g; BTW, why capture $2 and $4 if you are not using them and why is everything backslashed? Since I'm relatively new to the language,

[regexp] Warnings on Backreferences

()(.*?)(\))!\1<\/a>!g; Should I be using $1 and $3 instead of \1 and \3 in this case, and if so, why? Thanks in advance, Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: match basename file and s / / /;

while () { s% http://.* % $link %; # are you sure you don't need the g option? print OUTPUT; } close INPUT; close OUTPUT; move( $text_file, "$text_file.bak" ); move( $out_f

Using File::Find to follow symlinks

mlink files (i.e., it is not even called on the "real" file). Switching from find to finddepth seems to fix this, but I really don't understand what's going on. Any pointers? -- Adam Rosi-Kessel http://adam.rosi-kessel.org signature.asc Description: OpenPGP digital signature

Re: MIME::QuotedPrint[::Perl] is not decoding anything

On 6/14/05, Adam Wuellner <[EMAIL PROTECTED]> wrote: > On 6/14/05, Adam Wuellner <[EMAIL PROTECTED]> wrote: > > __DATA__ > > > > < > > > > Oh, super. Maybe to start, someone can help me get the data posted. :-\ > On closer inspection of the

Re: MIME::QuotedPrint[::Perl] is not decoding anything

On 6/14/05, Adam Wuellner <[EMAIL PROTECTED]> wrote: > __DATA__ > > < > Oh, super. Maybe to start, someone can help me get the data posted. :-\ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> &

MIME::QuotedPrint[::Perl] is not decoding anything

The following code, using either MIIME::QuotedPrint or MIME::QuotedPrint::Perl, does not decode the data. It returns exactly what is passed in. I suspect I must not have properly encoded data? It arrives this way via email. Any help appreciated. - Adam #!usr/bin/perl use strict; use

2 -D arry in perl

push (@data,@dayofyear); } } Regards, Adam Saeed [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: remote database access in perl

h->fetchrow_arrayref){ > > print join("\t", @$row), "\n"; > > } > > $sth->finish(); > > $dbh->disconnect(); > > > > Script is working fine on the host machine(192.168.14.2) but give > > error when run from remote machine... > > any

remote database access in perl

uct='L2'"; my $sth = ($dbh->prepare($strsql) || die "Query could not be executed " . $dbh->errstr()); i$sth->execute(); while (my $row = $sth->fetchrow_arrayref){ print join("\t", @$row), "\n"; } $sth->finish(); $dbh->disconnect(); Script

Re: Searching tecknical documentation

On Nov 16, 2004, at 6:39 PM, Stephen Liu wrote: Hi Adam, --- "Adam K. Wuellner" <[EMAIL PROTECTED]> wrote: Beginning Perl: <http://learn.perl.org/library/beginning_perl/> has all the chapters in PDF format. And it's legal. I can't browser the links to each cha

Re: Searching tecknical documentation

On Nov 15, 2004, at 9:02 PM, Stephen Liu wrote: Please advise where can I find similar free documentation on Internet, like; programming perl (O'reilly) Learning Perl (Llama) Programming Perl (Camel) Perl Cookbook (Ram) Beginning Perl: has all the ch

errors using DBI

){ for ($i=0;$i<$#user;$i+=3){ my $Insert=("insert into contact_list values('$user[$j]','$user[$i+3]','$dept[$j+2]','$dept[$i+5]')"); my $rtn = $dbh->do ($Insert); } } #delete unspecified records my $delete=$dbh->do("delete from conta

Re: uninstall perlmodule

nstalled in the first place. > > -- > Chris Devers > -- Allah Hafiz O! God Thy sea is so great and my boat is so small. Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

uninstall perlmodule

plz tell me how to uninstall a perl module... thanks Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

script how to interactive mode in telnet

i have to type all by hand. instead i want it to write through my script.. ' any idea. thanks adam code attached: #! /usr/bin/perl -w print "Enter ip address where smtp server is running\n"; chomp ($ip=); system ("telnet"); system ("open $ip 25"); system("he

Global variables / special variables / variable identifier with just one character

] = "test"; } Does it mean - that in general - we should not use one character variables in Perl? thanks adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: auto dial

On Fri, 8 Oct 2004 03:53:55 +0600, Adam Saeed <[EMAIL PROTECTED]> wrote: > Hi Errin! > good tracking...! > lema hee hee.. i am in Pakistan...It would be a nice thing but., > phone calls will cost you $. > It would be a reasonable approach. if some others also w

Re: auto dial

enjoy it. I did'nt mean to get script from here, i posted here to get initial ideas to be purified and sharpened so problem statement and algo, must become clear. i.e a way should be seen to do this. Thanks again Adam On Thu, 7 Oct 2004 14:45:52 -0400 (EDT), Chris Devers <[EMAIL P

Re: auto dial

posted it here to know how it could be done in Perl. which module should be use, is there any program similar to this one has been built or not. etc. thanks Adam, On Wed, 6 Oct 2004 23:32:51 -0400 (EDT), Chris Devers <[EMAIL PROTECTED]> wrote: > On Thu, 7 Oct 2004, Adam Saeed wrote: &g

auto dial

dear all, i want to dial automatically to phone through my PC getting numbers from text/etc. file. how could i do it in PERL. thanks Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.

References to anon array

I am expecting in both examples the same result: Example1: the same references Example2: the same references However, I get: Example1: different references Example2: the same references What am I missing? thanks adam Here is the code: #Example1 my $r1 = [1, 3]; my $r2 = [1, 3]; if ($r1 eq $r2

How may anonymous tables?

Here is the code: my $r1 = [1,2]; my $r2 = [1,2]; How many anonymous arrays do we have now? One or two? This shows we have two arrays: print "$r1\n$r2\n"; Is there any way to find out how the system is naming these arrays internally? thanks adam -- To unsubscribe, e-ma

smtp support attach?

could any one tell me that SMTP::Net support attachment, if yes how it could be to do so... thanks -- Allah Hafiz O! God Thy sea is so great and my boat is so small. Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.

Re: is possible start some actions with Perl without Cron?

hink off the top of my head why this is important, but it is a difference. I think just as a matter of good programming style, if your program is always suppose to background itself, you should have the program background itself, rather than relying on the user to background it. > On Sat, 2

File::Find doesn't travers directories that only have symlinks in them?

in it but no real files, that directory is not printed. It seems to me that this is unrelated to "follow", which controls whether symlinked *directories* are followed--in this case, it is a directory full of symlinked files. What am I missing? -- Adam Rosi-Kessel http://adam.rosi-kessel

Re: is possible start some actions with Perl without Cron?

definitely, and every three days run the subroutine SendEmailToUsers. You obviously need to add a lot more to have a sensible daemon: you'd at least want to check to make sure it was not already running when you started it, and provide a system to shut the daemon down. -- Adam Rosi-Kessel http://

Re: Can't kill forked grandchildren when running from shell script

You call KillAll with a process ID and it kills that process and all its children. Can anyone suggest a better way to do this? Or does this seem like a reasonable way to accomplish the goal? -- Adam Rosi-Kessel http://adam.rosi-kessel.org -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addit

Re: Can't kill forked grandchildren when running from shell script

lls whole process group; shell and player } elsif ($key_quit =~ /\Q$key\E/) { print "Quitting...\n" unless $quiet; local $SIG{HUP} = 'IGNORE'; kill HUP => -$$; last; } } until ($kid > 0); The problem here is the kill HUP => -$$ only works wh

Can't kill forked grandchildren when running from shell script

grandchildren pids without shelling out to ps? - A good solution to the problem generally? Using perl 5.8.4, Debian GNU/Linux unstable, 2.6.8-rc4 kernel. Thanks very much for any tips or URLs. -- Adam Rosi-Kessel http://adam.rosi-kessel.org -- To unsubscribe, e-mail: [EMAIL PROTECTED

Re: Pattern Matching records from a table query.

me commands to do this, or at least point me in the right > direction. Any suggestions? Yea, use a pipe delimited file. Regards, Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Regex for numbers and text (ANS)

his syntax is fairly noisy. As an alternative, try using split() Something along the lines of: #! /usr/bin/perl use strict; # UN-TESTED my ($value, @parsed); $value = "adam 1.2 2.2 3.2 wed"; @parsed = split(/\s+/, $value); print "$_\n" for (@parsed); Unless

Re: Using Perl on a UNIX box where you have no ADMIN rights....

l's documentation for instructions on setting shell variables. Using BASH this is how I would set this variable (I use BASH): export PERLIB5='/users/my_home_dir/perl-lib'; After you do all this you can deploy modules to your personal library and use them from there. Regards, Ada

Re: Any wrong?

s error because there isn't a file named `nlexample` or `fish` in the current directory where the program is. Regards, Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: simple include

Try removing "my" from all the variables in your module ... You're privatizing them to your module thereby excluding them from your external program ... At least that's my guess! :^) HTH, Adam On Tuesday 04 May 2004 12:12 pm, Andrew Gaffney wrote: : I'm working on a s

Re: Avoiding using temporary files

Richard, I wouldn't look to use a temporary file. In stead push your output into an array then iterate through the array on your second pass. I would expect you to get better performance as you won't have to worry about disk I/O. Regards, Adam On Apr 13, 2004, at 4:55 AM, Bar

Re: determining size of array through reference

e from the reference. print ("The array's size is " . @de_ref . "!\n"); There is probably a better way, but I'm a newb so I don't know. Cheers, Adam On Apr 6, 2004, at 7:40 PM, Andrew Gaffney wrote: I've got an array reference and I'm trying to figure o

Re: How to determine if STDIN has piped data?

ing a file with 3-lines of test text in a file named `sample.txt`. sample.pl sample.txt Script: Test-1 Script: Test-2 Script: Test-3 You could also use the following command `cat sample.txt | sample.pl`. As we say in Philly, you feel me dog? Regards, Adam ** Back ticks are not part of the actual

Re: interpolated strings

Bryan, I'm no pro, but I can help a bit. You interpolate variables in a double-quote "". my($name) = 'Adam'; print("My name is $name\n"); # Prints `My name is Adam` with a return at the end. or more to your question my($name); chomp($n

Re: Installing DBI

Thanks. I thought I checked this. it works now. - Original Message - From: "Daniel T. Staal" <[EMAIL PROTECTED]> To: "Perl Beginners" <[EMAIL PROTECTED]> Sent: Tuesday, March 09, 2004 6:44 PM Subject: Re: Installing DBI > --As of Tuesday, March 9, 2

Re: Installing DBI

I thought about the binary vs. alpha option. Which is correct? - Original Message - From: "Wiggins d Anconia" <[EMAIL PROTECTED]> To: "Adam Jacobson" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Tuesday, March 09, 2004 5:35 PM Subject: Re: Instal

Installing DBI

ERL was too easy. What am I missing. Thanks Adam Jacobson

Installing DBI

ERL was too easy. What am I missing. Thanks Adam Jacobson

Re: Zip using Perl

ie("Cannot find file `$file_nm`.\n"); # Zip the file. print("Trying file name '$file_nm.zip'"); system("zip '$file_nm.zip' '$file_nm'"); Regards, Adam Does the file's name contain spaces? On Jan 29, 2004, at 1:24 AM, Owen wrote: On We

Re: Formatting the decimals

Owen is dead on, but I think we can do that with less code. Try something like: printf ("%0.2f\n", $_) while (<>); Regards, Adam On Jan 29, 2004, at 5:25 AM, Owen Cook wrote: On Thu, 29 Jan 2004, Mallik wrote: How do I format the decimals, i.e, if there is no decimal part,

Perl 5.8.1 and Installing Modules

install it to /usr/local/lib/perl5/site_perl/5.8.0/module_path In perl 5.8.1 there is no /usr/local/lib/site_perl/... Is this normal for perl 5.8.1 has anyone got any ideas? Adam --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.525

Re: Perl 5.8.1 and Installing Modules

Hi, I reinstalled Perl and it all seems to work fine now.. Thanks, Adam - Original Message - From: "Tristram Nefzger" <[EMAIL PROTECTED]> To: "'Adam Gent'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Tuesday, October 14, 2003 8:17 P

Re: Perl 5.8.1 and Installing Modules

Hi, One of the modules that I am trying to install is HTML::Template, but I have also tried many others. I am installing the modules through the CPAN shell. In 5.8.0 it installed into /site_perl/5.8.0/HTML::Template But no sign of it under 5.8.1 Adam - Original Message - From

Perl 5.8.1 and Installing Modules

install it to /usr/local/lib/perl5/site_perl/5.8.0/module_path In perl 5.8.1 there is no /usr/local/lib/site_perl/... Is this normal for perl 5.8.1 has anyone got any ideas? Adam --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version

Re: Running Perl as a Mail Client

Hi, You will find it more effective to use the paypal IPN, this way paypal will call a script of your choice when a payment is made. Adam - Original Message - From: "Dan Anderson" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Saturday, September 20, 2003 7:

Re: random number between x and y

This should work ... #!/usr/bin/perl -w my $num = int (rand(10) +1); if ($num >= 5 and $num <= 10) { print "$num\n"; } else { print "Sorry ... \n"; } Hope that helps ... Adam On Saturday 20 September 2003 12:58 pm, dan wrote: : how is it possible to g

Security Code Validation for Forms

find anything, I was hopping that someone else may have already have a solution to this, or have some thoughts on how it could be done. Thanks, Adam --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.502 / Virus Database: 300

CPAN

Hi All, Is anyone having problems accessing search.cpan.org I keep getting 502 errors, Bad Gatway. Just wondering if this is a problem with my ISP or with CPAN in general. I can access www.cpan.org though. Thanks, Adam --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus

Perl Help

So any even number priced doesn't get shown. Someone said do a 'RegExp' (Regular Expresion) like this /\d+\.\d+/ \d+ = numeric number \. = '.' / is beginning and end. I have tried @fieldprice = /\d+\.\d+/; but it still fails to work right. If you don't kn

Mail::Sendmail & attachments

Hello everyone, Does anyone know of a way to send attachments via the module Mail::Sendmail? Thanks. Adam Stuckey Disclaimer ___ The information contained in this e-mail and any attachments are confidential. If you are not the intended

including perl in html

at home!!! Adam. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

include .pl in html

books at home!!! Adam.

Re: possible RFC?

On Wed, Aug 14, 2002 at 02:53:49PM -0400, Nikola Janceski wrote: > WTF doesn't perl -c check for valid subroutines/function calls? Because it's quite possible to define subs dynamically. That is, the sub isn't defined directly in your code, but is created (and installed) after your code has star

Re: From tutorial

Hello David, Wednesday, June 5, 2002, 12:36:53 PM, you wrote: >> start while you're waiting. The O'Reilly book "Learning Perl" is also >> good, if you're into paper instead of pixels. Are there any brand new books covering recent computing? -- Adam V.

Re: From tutorial

Hello Bob, Wednesday, June 5, 2002, 10:37:59 AM, you wrote: >> If this is from a tutorial, you need to find another tutorial :) Sure. Suggestions? -- Adam V. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: From tutorial

Hello David, Wednesday, June 5, 2002, 12:30:46 AM, you wrote: >> Adam -- >> % >> % /(<.*>)/i; >> This (the // part) searches $_ ('cuz it's that with which we expect we're >> working) for a < and then zero or more of anything and th

From tutorial

Can someone help please. I'm learning from scratch. What is this? $_='My email address is <[EMAIL PROTECTED]>.'; /(<.*>)/i; print "Found it ! $1\n"; I can only identify one command here. Print. How does this 'program' run? -- Adam V. --

Re: What am I doing wrong... I want to increment a number in a DB

o that directly in the SQL by using: "update media1 set history5 = history5 + 1 where ... " --Adam - Original Message - From: "FLAHERTY, JIM-CONT" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Sunday, June 02, 2002 9:59 PM Subject: What am I doing wr

Re: Reading RGB Values of Pixels in Images

You want to "read the RGB pixel values from them and write these to a file"? As was already pointed out, that is already what is in the file for some graphics formats! What is it you are actually trying to accomplish here? Maybe you just want to use imagemagick on the command line to convert your

Re: Links to randomly-accessed html pages

A better approach would be to have a static 'left' frame that links to a CGI that redirects to a random page. Like so: This Link And then "RandomPage.cgi" just has to pic a random page, and return a redirect header to that page. - Original Message - From: "Rohesia Hamilton Metcalfe" <[E

Re: hard references vs. variables

- Original Message - From: "drieux" <[EMAIL PROTECTED]> > the variables on the left are 'softish references' to other things .. . . > not a reference but the thing in itself... > what I think you are calling 'hard reference'(). I believe 'soft references' in perl refers to the pra

Re: passing array-ref from sub to sub

-- According to this, my understanding is that all my's live in a symbol table that is not connected to any package namespace. --Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: reading multi-line into an array

Since this is a beginners list, I guess someone (i.e. me) should point out that perhaps the simplest way to read an array from STDIN is to do something like: @theseLines = ; This will by default add one array entry per line of user input until the user enters a cntrl-d. Of course, if you are st

Re: lynx

Well, if the web page is already in an acceptably readable form, you don't need perl at all (gasp!) if you use lynx. Just a contab entry and a pipe to a mailer. - Original Message - From: "Jonathan E. Paton" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, May 07, 2002 1:44 PM

Re: BUSINESS GRAPHICS by PERL?

On Tue, May 07, 2002 at 11:30:03PM +0800, Ilarionov wrote: > Are there any links, tips, scripts, > about business graphics creation > by perl? What do you mean by "business graphics"? If you mean things like charts and graphs, then look at the GIFgraph, PNGgraph and GD::Graph modules for a sta

Re: Parameters

e for purposes of reading from that file, you don't need to even look at @ARGV. The file(s) specified on the command line will be become the default filehandle for the <> operator, so just doing something like: while (<>) { } Will read from whatever file(s) you specified on

Re: Calculating Last Login on Unix

> On Monday, April 29, 2002, at 10:58 , [EMAIL PROTECTED] wrote: > [..] > > ipl of the server and therefore nulls wtmp > [..] > > good God Man! no one uses 'ipl' - it will scare the kiddies Is this, like, ancient IBM speak for "reboot"? IPL = "initial program load"? > That gives me the info

Re: Pinging

You can't 'ping a specific port' ping is an IP tool, and ports do not show up until the TCP/UDP level of your seven layer dip. Do some research on ICMP for more info. If you want to know if a service that uses a specific port is responding, you will have to make some valid request using whatever

Re: Sybase stored procedure

On Mon, Apr 08, 2002 at 03:39:34PM +0200, Rune Hegrenes wrote: > I'm trying to execute a stored procedure in my database from Perl. > > I seen get only the first resultset from the procedure, not the > rest (the procedure returns 4 resultsets). > > How do I do this? > > I'm using the DBI::Sybase

Re: help on searching an array

I'd split up the foreach loop and the conditional it might be a little clunky, but here's the basic idea. bolFound = false foreach (@members) { if (/($enqmem)/i) { bolFound = true; } } if (bolFound) { do stuff } else { do other stuff } At 18:54 27-03-02 +

Re: Printing frequency of word occurence in paragraph

On Fri, Mar 22, 2002 at 09:37:05AM -0500, David Gray wrote: > while() will create an infinite loop, No, it won't. The "while ()" idiom will read one line at a time and automatically terminate the loop at the end of the file. > so you do need some sort of > sentinel value to break out of the lo

  1   2   >