Re: [討論] 我的 Big5 轉 UTF-8 的簡單程式

[audreytang (Audrey)]

use Encode;
use Encode::Guess qw(big5 utf-8);
binmode(FH, ':encoding(Guess)');

# Or:
my $decoded = decode('Guess', $text);

__END__

Audrey

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.228.165.52
※ 編輯: audreytang      來自: 220.228.165.52       (09/16 09:49)
→ audreytang:另外也可以參考Encode::HanDetect