Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...
$string =~ /.*(^$header$(?:.*)^$footer$)/ms;

print "$1\n" if $1;
  2. or download this
    18:45 >perl 1078_SoPW.pl
start: real
...
end: real

18:45 >