增加 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

恭喜