Posted on 2006-08-01 01:20
理想 閱讀(1049)
評論(0) 編輯 收藏 所屬分類:
perl
perl?
-
MEncode?
-
pi?
-
e?
'
$_=encode_utf8(decode(gb2312=>$_))
'
?filename
轉換目錄下所有文件
for f in?`find?.`;?do?[?-f?$f ]?&&?perl?-MEncode?-pi?-e?'$_=encode_utf8(decode(gb2312=>$_))'?$f;?done;