Help for this page

Select Code to Download


  1. or download this
    sub without_regexp {
    my $largest = "";
...
    close (INFILE) || die "error $!";
    print "LARGEST FOUND: $largest\n";
}
  2. or download this
    sub with_regexp {
    my $largest = "";
...
    close (INFILE) || die "error $!";
    print "LARGEST FOUND: $largest\n";
}
  3. or download this
    sub with_regexp {
    my $largest = "";
...
    close (INFILE) || die "error $!";
    print "LARGEST FOUND: $largest\n";
}