【Perl】初心者コーナー Part19
■ このスレッドは過去ログ倉庫に格納されています
0592nobodyさん
03/01/27 21:52ID:???某有名所のスクリプトと比べると30%ほど速いみたいだけど…
評価してもらえるかな…?
改善点とか、悪いところとか…。
初期値は $old です…。
ドキドキ
$i = 0;
$new = "";
foreach $n (reverse(split //, $old)){
$n .= "," unless ($i % 3);
$new = $n . $txt;
$i ++;
}
$new =~ s/,$//;
■ このスレッドは過去ログ倉庫に格納されています