RE: regex help

This works in a one-liner: $string =~ s/^\s*(.*\S)\s*$/$1/; Cheers! -Dan -Original Message- From: Dr.Ruud [mailto:[EMAIL PROTECTED] Sent: Wednesday, August 08, 2007 2:05 PM To: beginners@perl.org Subject: Re: regex help Jeff Pang schreef: > John W. Krahn: >> Tony Heal: >>> Why does

File::Find help

Hello. The following code example creates a list of regular files in a directory. Using File::Find, I'm unable to localize an array to hold the list of files. Is there a way to create the list with a localized array? TIA. #!/usr/bin/perl -w ## Create a list of regular files in a directory. us

RE: File::Find help

d=>sub { &found([EMAIL PROTECTED]) }, no_chdir=>1 }, $dir ); print @list; } sub found { my $list = shift; ## Do some string processing here... push @{$list}, $_ if -f $_; return; } -Original Message- From: Dan Sopher [mailto:[EMAIL P

foreach and map..how are they different?

Aside from the syntax, is there a difference in the way 'map' and 'foreach' process? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

& and >>

Regarding the following document: http://perldoc.perl.org/functions/system.html 1. What does ($? & 127) mean? 2. What does $? >> 8 mean? Example from the document: if ($? == -1) { print "failed to execute: $!\n";