Perlについての質問箱 32箱目
■ このスレッドは過去ログ倉庫に格納されています
0323デフォルトの名無しさん
2007/08/31(金) 12:34:04きれいなシャチ泳ぎは美しいかもしらんが、>>316のコードは
お世辞にもきれいとは言えん。釣りで仕込んだのかもしれんが、無意味な無名配列作成とか。
同じ事を普通に書くと以下になる。
sort { ( $T{$a} ||= split m{/},$a ) <=> ( $T{$b} ||= split m{/},$b ) || $a cmp $b } @path
ただ「スパゲティ」とは別ものだ。
■ このスレッドは過去ログ倉庫に格納されています