くだらない質問はここに書き込め!41

[0200 名無しさん＠お腹いっぱい。 05/03/02 18:18:10]

>>193
それだとrename $_.TMP,$_ 時点で $_が空だ。
perl -pe 'while(<>){chomp;$_=$tmp;open(F,$tmp);open(O,">$tmp.TMP");while(<F>){ s/shift_jis/euc-jp/;print O $_; } close(O);close(F);rename "$tmp.TMP",$tmp;}'