CGI Script to pass a file to different servers

Hi all, Her am not able to do socket programming :( Any other solutions ? Thanks -- Forwarded message -- From: Jeff Peng <[EMAIL PROTECTED]> Date: Jun 24, 2006 6:51 PM Subject: RE: CGI Script to pass a file to different servers To: beginners@perl.org I once did the things like yo

Re: CGI Script to pass a file to different servers

I BioKid wrote: Hi all, Her am not able to do socket programming :( Any other solutions ? Net::FTP RSYNC, SCP, etc etc, Not really sure what you're trying to do... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: CPAN::Shell install into customer dir

Anthony Ettinger wrote: Isn't it PERL_PREFIX? Perhaps, I'll give it a go once I figure out why its still using the global config and not the user's :) Thanks for the input Anthony! On 6/24/06, JupiterHost.Net <[EMAIL PROTECTED]> wrote: Howdy all :) I've a plugin installer that in

disappointing '.*?'

this code: 1 #!/usr/bin/perl -w 2 3 $_ = " [11] [22] a "; 4 5 #with .*? 6 $re1 = qr/a|\[.*?\d\d\]/; 7 $re2 = qr/($re1\s)?$re1/;

RE: CSV file that can be loaded to Microsoft Outlook

You have an extra double-quote in there after the email address. So far this doesn't seem to be a Perl problem. -Original Message- From: Mihir Kamdar [mailto:[EMAIL PROTECTED] Sent: Sunday, June 25, 2006 7:02 AM To: Mr. Shawn H. Corey Cc: beginners Subject: Re: CSV file that can be loade

puzzling '.{1,4}'

the following code: 1 #!/usr/bin/perl -w 2 3 $_ = " x11x x22x a "; 4 5 #with '.*?' 6 $re1 = qr/x.*?\d\dx|a/; 7 $re2 = qr/($re1\s)?$re1/; 8 ($f) = /($re2)/;

Re: puzzling '.{1,4}'

I think I can parse this regex: qr/x #match one 'x' .{1,4} #followed by no less than one but no more than four of anything \d\d #followed by 2 digits. x|a #followed by an 'x' or an 'a' /x; You're string looks like " x11x x22x a" So if we march through

Re: puzzling '.{1,4}'

inline On Monday 26 June 2006 10:49 am, Peter Cornelius wrote: > I think I can parse this regex: > > qr/x #match one 'x' > .{1,4} #followed by no less than one but no more than four of > anything > \d\d #followed by 2 digits. > x|a #followed by an 'x' or an

Re: disappointing '.*?'

On 6/26/06, tom arnall <[EMAIL PROTECTED]> wrote: 1 #!/usr/bin/perl -w 2 3 $_ = " [11] [22] a "; 4 5 #with .*? 6 $re1 = qr/a|\[.*?\d\d\]/; 7 $re2 = qr/($re1\s)?$re1/; 8 ($f) = /($re2)/; 9 print "with .*? : $f\n"; 10 11 #without .*?

Re: disappointing '.*?'

inline. On Monday 26 June 2006 12:37 pm, Tom Phoenix wrote: > On 6/26/06, tom arnall <[EMAIL PROTECTED]> wrote: > > 1 #!/usr/bin/perl -w > > 2 > > 3 $_ = " [11] [22] a "; > > 4 > > 5 #with .*? > > 6 $re1 = qr/a|\[.*?\d\d\]/; > > 7 $re2 = qr/($re1\s)?$re1/;

Re: disappointing '.*?'

On 6/26/06, tom arnall <[EMAIL PROTECTED]> wrote: > > 3 $_ = " [11] [22] a "; > > 6 $re1 = qr/a|\[.*?\d\d\]/; > > 7 $re2 = qr/($re1\s)?$re1/; > > 8 ($f) = /($re2)/; if line 6 is changed to '$re1 = qr/a|\[\d\d\]/', the result is '[11]'. how is '.*?' causing the diff

Re: puzzling '.{1,4}'

On Jun 26, 2006, at 11:42 AM, tom arnall wrote: On Monday 26 June 2006 10:49 am, Peter Cornelius wrote: ... x|a #followed by an 'x' or an 'a' aren't the alternates (1) everything to the left of '|' and (2) 'a'? thus - to take another example - the following: $_='

Re: puzzling '.{1,4}'

tom arnall am Montag, 26. Juni 2006 20:42: [...] > do you have any idea why: > > $_ = " x11x x22x a "; > > $re1 = qr/x.*?\d\dx|a/; > $re2 = qr/($re1\s)?$re1/; > ($_) = /($re2)/; > print $_; > > doesn't produce 'x11x' ? (note btw that if you insert '\n' between the > f

Re: disappointing '.*?'

On Monday 26 June 2006 01:48 pm, Tom Phoenix wrote: > On 6/26/06, tom arnall <[EMAIL PROTECTED]> wrote: > > > > 3 $_ = " [11] [22] a "; > > > > > > > > 6 $re1 = qr/a|\[.*?\d\d\]/; > > > > 7 $re2 = qr/($re1\s)?$re1/; > > > > 8 ($f) = /($re2)/; > > > > if line 6 is changed to

Re: disappointing '.*?'

tom arnall schreef: > \[\!.*?\d\d\d\d\] With "[^]\d]*" in stead of ".*?", I get: match: 1 X-Q5 match: 1 ... PxX match: ( 2 [!RxP6762]ch. , KxR match: 3 Q-R5ch. , K-X1 match: 4 R-K7 match: ) match: THE END -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED

What's this error in regex?

Hello, I got a warning message from my perl script,it's this: Quantifier follows nothing in regex; marked by <-- HERE in m/? <-- HERE ?/ at ./.pl line 703. The 703st line is in a subroutine,the subroutine is: sub some_sub { my $arg1=shift; my $ok=0; for (@some_global_array)

Re: What's this error in regex?

On 6/26/06, Practical Perl <[EMAIL PROTECTED]> wrote: I got a warning message from my perl script,it's this: Quantifier follows nothing in regex; Have you seen what the perldiag manpage says about that message? return ($ok =1) if $arg1=~/$_/; Unless $_ contains a valid regular exp