Help for this page

Select Code to Download


  1. or download this
    open(my $INFILE, ...) or die "unable to open file: $!\n";
chomp(my @lines = <$INFILE>);
close($INFILE);
  2. or download this
    print "Number of lines read: ", 1+$#lines, "\n";
for my $i (0..$#lines) {
  print "line $i is: $lines[$i]\n";
}