PHPでソート関数を試し書きしてるときに、ふと気になったのでPerlと速度を比べてみた コードは以下 ActivePerl 5.12.2 use strict; use warnings; use Time::HiRes; sub str { my $str = ""; for (0..int(rand(10)+1)) { $str .= chr(65 + rand(25)%26); } r…