Select Code to Download

#!/usr/bin/env perl

use 5.014;
...

    return str;
}

   hash_pack(512567000151256700025125670003) => 5125670001512567000251
+25670003
     hash_re(512567000151256700025125670003) => 5125670001512567000251
+25670003
 hash_substr(512567000151256700025125670003) => 5125670001512567000251
+25670003
...
hash_pack     646938/s         97%        53%         --         -33% 
+      -86%
hash_substr2  965459/s        194%       129%        49%           -- 
+      -79%
hash_c       4606276/s       1303%       992%       612%         377% 
+        --