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

[0193 名無しさん＠お腹いっぱい。 05/03/02 16:46:40]

あ、まちがえた。
find ./ -type f -name "*.html" | perl -pe 'while(<>){chomp;open(F,$_);open(O,">$_.TMP");while(<F>){ s/shift_jis/euc-jp/;print O $_; } close(O);close(F);rename $_.TMP,$_;}'