- 57 名前：デフォルトの名無しさん mailto:sage [2009/08/17(月) 09:58:26 ]
- >>47
無理やりするなら、JISコードにして自分でbase64エンコードするとか。
use Encode;
my $text = qq{ﾊﾝｶｸｶﾀｶﾅ};
# cp932 => MIME-Header-ISO_2022_JP
Encode::from_to($text, 'cp932', '7bit-jis');
use MIME::Base64;
$text = '=?ISO-2022-JP?B?' . encode_base64($text, "") . '?=';
print $text, "\n";
# MIME-Header-ISO_2022_JP => cp932
Encode::from_to($text, 'MIME-Header', 'cp932');
print $text, "\n";
