Help for this page

Select Code to Download


  1. or download this
    my $file_data = <FILE>;
  2. or download this
    foo,bar
fooey
  3. or download this
    main::(alienhuman.pl:3):        if (!$ARGV[0]) {
  DB<1> n
...
main::(alienhuman.pl:18):               $file_data=<FILE>;
  DB<1> 
main::(alienhuman.pl:17):               while (<FILE>) {
  4. or download this
      DB<1> x $file_data
0  'fooey
...
  DB<2> x $_
0  'foo,bar
'
  5. or download this
      DB<3> 
main::(alienhuman.pl:21):               close FILE;
  DB<3> 
main::(alienhuman.pl:23):               @new_array = split /,/, $file_
+data;