使用Perl建立指定編碼格式(如utf-8)檔案的實現代碼

從而使得有些字元(尤其是寬字元)無法正確地顯示，即不再是utf-8格式了。

解決辦法：
開啟輸出檔案時即指定編碼格式，就不會出現輸出檔案開啟以後亂碼的情況了。

普通的預設open輸出檔案：

複製代碼 代碼如下:open(OUTPUT,'>>output.txt')||die"can not open the file: $!";

定義指定編碼格式檔案(或者成為使用Perl建立一個指定編碼格式的檔案)：

複製代碼 代碼如下:open OUTPUT, ">:encoding(utf-8)", "output.txt";
print OUTPUT $something;
close OUTPUT;