增加 use utf8 由big 5的 終端機看出來是正常的。 謝謝!
#!/usr/bin/perl
use utf8;
use Encode;
my $result="123 測試成功 456";
print "UTF8=".$result."\n";
my $string0 = Encode::encode('big5', $result);
print"Bi5=".$string0."\n";
測試結果(終端機選擇 Big5 編碼):
Wide character in print at uat-test.pl line 5.
UTF8=123 皜祈岫 456
Bi5=123 測試 456

恭喜