>>336
補足ありがとう。

>>338
> あと、perl-5.8.0 で入力エンコーディングの自動判別をする方法
Encode::Guessモジュールはどうかな？
あくまで「判別」までしかできないようだけど。

use Encode::Guess;
my $enc = guess_encoding($data, qw/euc-jp shiftjis 7bit-jis/);
ref($enc) or die "Can't guess: $enc"; # trap error this way
print $enc->name, "\n";