ある文字列の文字コードを判別する。
use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
#(文字列が短いと正確な判定が出来ないことがある)
my $enc = guess_encoding($str);
print "encoding is ", $enc->name, "\n";
use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
#(文字列が短いと正確な判定が出来ないことがある)
my $enc = guess_encoding($str);
print "encoding is ", $enc->name, "\n";