文字コードの推測


 Encode::Guessモジュールをつかいます。
use strict;
use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;

my $str = '文字列';
my $enc = guess_encoding($str);
if (ref $enc) {
	print $enc->name, "\n";
} else {
	print $enc, "\n";
}

関連項目

なし