Help for this page

Select Code to Download


  1. or download this
    sub compare {
        state $stripped;
    ...
        eq
        ($stripped->{$_[1]} //= $_[1] =~ s/<(?:i|ph|bpt|ept) [^>]*?>//gr);
    }
    
  2. or download this
    !/usr/bin/env perl
    
    ...
        eq
        ($stripped->{$_[1]} //= $_[1] =~ s/<(?:i|ph|bpt|ept) [^>]*?>//gr);
    }
    
  3. or download this
    $ ./pm_1217567_cmp_bench.pl bench
            Rate orig kens
    orig  2035/s   -- -81%
    kens 10576/s 420%   --
    
  4. or download this
    $ ./pm_1217567_cmp_bench.pl > ./pm_1217567_cmp_bench_both.out
    $ cp ./pm_1217567_cmp_bench_both.out ./pm_1217567_cmp_bench_orig.out
    ...
    ---
    > *** Ken's ***
    $