Re: Checking filenames? [:: ?Kinda Solved? ::]

[WC -Sx- Jones]

John W. Krahn wrote:
Wc -Sx- Jones wrote:

Charles K. Clarkson wrote:


   Make 'Indians' an array.

my( $onelittle,
   $twolittle,
   $threelittle, ) = ('Indians') x 3;
Create it with a HereDoc  =)


Oh, how do you do that?


I guess I made you all wait long enough...

# WARNING - not strict or -w safe...

my ($line1,
    $line2,
    $line3,
    $line4,
    $line5) = (<<"END_OF_HERE_DOC" =~ m/^\s*(.+)/gm);
One little
 two little
  3 little Indians...
END_OF_HERE_DOC
print "1: $line1, 2: $line2, 3: $line3, $line4, $line5";

(Yes, I read the Perl Cookbook. :)
-Bill-
__Sx__________________________________________
http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>