Select Code to Download

C:\test>\perl5.18\bin\perl.exe 1046579.pl -N=2**20
           Rate   classic translate       str
...
str         3.97        --       -7%      -23%
classic     3.69        8%        --      -17%
translate   3.06       30%       20%        --

C:\test>perl -MO=Concise,str 1046579.pl
main::str:
...
v                       <0> padsv[$blocksize:1250,1258] s ->w
x                    <0> unstack s ->y
1046579.pl syntax OK

C:\test>perl -MO=Concise,translate 1046579.pl
main::translate:
...
4                    <$> const[IV 0] s ->5
7           <"> trans sS/COMPL ->8
1046579.pl syntax OK

C:\test>\perl5.18\bin\perl.exe 1046579.pl -N=2**29
          s/iter      long   classic       str translate
...
C:\test>\perl5.18\bin\perl.exe 1046579.pl -N=2**30

Substitution loop at 1046579.pl line 42.