文字コードの推測

---

　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";
}

---

関連項目

なし