推 flu: 恭喜 07/17 19:19
增加 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
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.192.100.9
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1437103177.A.FDB.html