Help for this page

Select Code to Download

Select or download this

substr => sub{
      my $t2 = '20090123';
...
      die if (length($t2)!= 8);
      die if ($t2 =~ /\D/);
    },

Select or download this

#!perl
use v5.10;
...
isook   324886/s     64%      8%      5%      --     -2%    -60%
repeat  329924/s     67%      9%      7%      2%      --    -60%
substr  820345/s    314%    172%    165%    153%    149%      --