Help for this page

Select Code to Download


  1. or download this
    while (<>) {
    my ($prefix, $tail) = /(\S+) (.*)/;
...
    print "$prefix $tail";
    $currPrefix = $prefix;
}
  2. or download this
    #!/usr/bin/perl
use strict;
...
    print $out "$prefix $tail";
    $currPrefix = $prefix;
}
  3. or download this
    #!/usr/bin/perl
use strict;
...
    print "$prefix $tail";
    $currPrefix = $prefix;
}