其實perl對國際化非常的支持,例如在windows下讀入一個gbk(cp936)的文本,然后要轉(zhuǎn)化為utf8的文本輸出,代碼如下:
use Encode;
use Encode::CN;??????#最后包含這個包,以為對以后編譯有好處。
use PerlIO;??????# 同上
open(FILE, "<:encoding(gbk)", "gbk.txt");??????# 這里自動解碼成utf8
@lines = <FILE>;
?close(FILE);
???
open(F, ">:utf8", "utf.txt");??????# 自動編碼成utf8.
print F @lines;
close(F);
這樣可以省得再打開以后在編碼。