文字コードを自動判別するモジュール Unicode::Japanese - Perl勉強メモ　アルパカDiary出張版

文字コードを自動判別するのに
Encode::Guess＋Jcodeで行っていたのですが、
このモジュール使うとよさげなロジックで判別してくれそう。

こんな感じかな。

use Unicode::Japanese;
my $s = Unicode::Japanese->new();
my $code = $s->getcode("ほげほげ");
print $code,"\n";