文字関連

■外部入力がutf8以外の場合の処理
文字コードを判別
utf8以外なら
sjis⇒内部文字列⇒utf8の順に変換

use Encode::Guess qw/euc-jp shift-jis/;
$enc=guess_encoding($shop_name);
if ($enc->name ne 'utf8') {
save_debugfile("文字コード：".$enc->name." から utf8 に変換します\n");
$shop_name = decode($enc->name, $shop_name);
$shop_name = encode('UTF-8', $shop_name);
}

■値をコードポイントで表示

my @items = unpack "H*", $str;
foreach my $item (@items) {
print $item, " ";
}

■環境変数確認

print "version: perl".$]."\n"; # バージョン確認
print $ENV{NLS_LANG}; #
foreach $key (keys %ENV) {
print "$key ： $ENV{$key}
\n";
}