Help for this page

Select Code to Download


  1. or download this
    my @indexes = qw (3 0 4 5 6 7);
open INDATA,"< my.dat" or die "my.dat: $!";
...
sub get_indexes {
   return @indexes;
}
  2. or download this
    use IO::File;

...
# call the function:
print process( "my.dat", qw( 3 0 4 5 6 7 ) );
  3. or download this
    use IO::File;

...
# later on, call the closure:
print $processor->();