use Encode; use MIME::Words qw (:all); my $subject = "表示義務に違反するメールがありましたので、情報提供いたします"; my $perl = decode("euc-jp", $subject); ## euc-jpをPerl内部形式に my $jis = encode("jis", $perl); ## Perl内部形式をJISに my $utf8 = encode("utf-8", $perl); ## Perl内部形式をutf-8に my $mime1jis = encode_mimeword( $jis, 'B', 'iso-2022-jp'); ## $perl を使っちゃダメ my $mime1utf8 = encode_mimeword( $utf8, 'B', 'utf-8'); ## $perl を使っちゃダメ my $mime2jis = encode('MIME-HEADER-ISO_2022_JP', $perl); ## $jis を使っちゃダメ my $mime2utf8 = encode('MIME-HEADER', $perl); ## $utf8 を使っちゃダメ print " org [" . $subject ."]\n"; print " MIME JIS [" . $mime1jis ."]\n"; print "Encode JIS [" . $mime2jis ."]\n"; print " MIME UTF-8[" . $mime1utf8 ."]\n"; print "Encode UTF-8[" . $mime2utf8 ."]\n";