【祟り】FOX ★が管理人を夏タイヤに交換するスレッド【交換】

>>31とりあえず五百万回繰り返してみた。perl的には効率が悪いようだ。
sub GetDoCoMoCIDCaseInfo_re
{
my $cid = shift;

$cid =~ tr/0-9A-Za-z/11111111112222222222222222222222222233333333333333333333333333/;

return($cid);
}
↑このコードの６倍以上かかってる。