Help for this page

Select Code to Download


  1. or download this
    my @array = do { local @ARGV = $name; <> };
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
print "Lines:\n",@lines;
print "\nFoos:\n",$foo1,$foo2,$foo3;
  3. or download this
    #!/usr/bin/perl -w
use strict;
...

print "Lines:\n",@lines;
print "\nFoos:\n",$foo1,$foo2,$foo3;
  4. or download this
    % perl test.pl file_a
Lines:
...
File A line 1
File A line 2
File A line 3
  5. or download this
    % perl test.pl file_a
Lines:
...
File A line 1
File A line 2
Use of uninitialized value at test.pl line 16.