Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings;
use Algorithm::Diff qw/ LCS_length /;
...
}

__END__
  2. or download this
    while ( <$fh> ) {
    ...
}
  3. or download this
    while ( <$fh> ) { # each line is loaded into $_ in turn
    my @characters = split //;
}
  4. or download this
    while ( my $line = <$fh> ) { # each line now in $line
    my @characters = split //, $line;
}