Encode::Guess
文字コードを判定したかったので使ってみた。
use Encode::Guess; my $enc = guess_encoding($data, qw/euc-jp shiftjis 7bit-jis utf8/); warn ref($enc);
http://search.cpan.org/~dankogai/Encode-2.18/lib/Encode/Guess.pm
文字コードを判定したかったので使ってみた。
use Encode::Guess; my $enc = guess_encoding($data, qw/euc-jp shiftjis 7bit-jis utf8/); warn ref($enc);
http://search.cpan.org/~dankogai/Encode-2.18/lib/Encode/Guess.pm