Select Code to Download

# THIS doesnt mean \\server_name\sys_share it means \server_name\sys_s
+hare
$unc = '\\server_name\sys_share'; 
...
$server = $&;
$server =~ s/^\W+//;
# None of the regexes in the benchmark will match anymore (in a meanin
+gful way)

#!perl
use warnings;
...
               Rate blackadder  theorbtwo
blackadder 131372/s         --       -31%
theorbtwo  190424/s        45%         --

# benchmark saw ampersand -- BlackAdder
use strict;
...
                  $server
                  },'blackadder'
));

# benchmark saw ampersand -- theorbtwo
use strict;
...
                  $1;
                }, 'theorbtwo'
));

use Benchmark 'cmpthese';
use Data::Dumper;
...
         };
cmpthese($hash);
__END__

Matching \\foo\bar\baz.exe for -5
blackadder:  6 wallclock secs ( 5.22 usr +  0.00 sys =  5.22 CPU) @ 13
+5204.60/s (n=705768)
...
               Rate blackadder  theorbtwo
blackadder 135205/s         --       -63%
theorbtwo  367160/s       172%         --