作者audreytang (Audrey)
看板perl
标题Re: [讨论] 我的 Big5 转 UTF-8 的简单程式
时间Sat Sep 16 09:48:24 2006
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)
1F：→ audreytang:另外也可以参考Encode::HanDetect 09/16 12:49