perl指令碼中對字元編碼的支援

標籤：使用   檔案   資料   c   ar   資料庫   

# 使perl程式支援utf8寬字元編碼，不添加下面幾行列印中文字元時將出現Wide character in print警告或錯誤。
use utf8;
binmode(STDIN, ‘:encoding(utf8)‘);
binmode(STDOUT, ‘:encoding(utf8)‘);
binmode(STDERR, ‘:encoding(utf8)‘);
perl指令碼處理中文等字元時，有時從檔案讀出的資料為位元組碼，需要進行解碼才能正確顯示。使用Encode模組即可處理。
use Encode;
# $str1為從檔案或資料庫等方式儲存的utf8編碼資料中取出的資料
my $str0 = decode("utf8", $str1);