Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
            join("\0", @output) eq join("\0", @expect) or die "@output\n@e
    +xpect" if TEST;
        }
    });
    
  2. or download this
                   Rate       grep       hash hash_slice     splice
    grep        65163/s         --       -42%       -45%       -89%
    hash       112778/s        73%         --        -5%       -81%
    hash_slice 118725/s        82%         5%         --       -80%
    splice     580859/s       791%       415%       389%         --
    
  3. or download this
        grep => sub {
            my %indices;
    ...
            ];
            join("\0", @output) eq join("\0", @expect) or die "@output\n@e
    +xpect" if TEST;
        },
    
  4. or download this
                   Rate       hash hash_slice       grep     splice
    hash       113323/s         --        -6%       -41%       -80%
    hash_slice 120876/s         7%         --       -37%       -79%
    grep       190934/s        68%        58%         --       -66%
    splice     568237/s       401%       370%       198%         --