■外部入力が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." か…