[Perl5] Encode::Guess
這東西真是太好用了，感謝 hcchien 提供資訊。
use Encode::Guess;
my $decoder = guess_encoding($word, qw/utf-8 big5/);
$word = $decoder->decode( $word);
print $word;
my $decoder = guess_encoding($word, qw/utf-8 big5/);
$word = $decoder->decode( $word);
print $word;
三月 11th, 2005 at 2:46 pm
CPAN