Help for this page

Select Code to Download


  1. or download this
    open (FILE, shift);
my @file = <FILE>;
...
}

close (FILE);
  2. or download this
    my $name = shift or die "usage: $0 filename\n";
open FILE, '<', $name or die "Cannot open '$name' because: $!";
...
foreach my $line ( @file ) {
   ...etc...
}
  3. or download this
    my $name = shift or die "usage: $0 filename\n";
open FILE, '<', $name or die "Cannot open '$name' because: $!";
...
}

close FILE;
  4. or download this
    my $name = shift or die "usage: $0 filename\n";
open FILE, '<', $name or die "Cannot open '$name' because: $!";
...
}

close FILE;