Select Code to Download

sub two_pass {
    my @matched;
...
    print "two pass: " . @matched;
    close $FH;
}

c:\test>junk31 836952.log
Benchmark:
...
CCone_string: 15 wallclock secs (14.76 usr +  0.76 sys = 15.52 CPU) @ 
+ 0.06/s (n=1)

            (warning: too few iterations for a reliable count)

c:\test>\perl32\bin\perl junk31.pl 836952.log
Benchmark:
...
CCone_string:  7 wallclock secs ( 5.60 usr +  0.92 sys =  6.52 CPU) @ 
+ 0.15/s (n=1)

            (warning: too few iterations for a reliable count)