Re: [tlug] Japanese in Perl on Linux

[simon colston <simon@example.com>]

Blomberg David wrote:
> (first version output is just question marks)
> ------Second version----------------------------------
> $temp = MIME::Base64::encode("不正パスワード情報");
> chomp($temp);
> print MAIL "=?ISO-2022-JP?B?$temp?=\n";
> 
> (this one I get the string
> =?ISO-2022-JP?B?Pz8/Pz8/Pz8/?=
> mime encoded Japanese text as best I can tell)
> -----------------------------------------------------

I don't know anything about perl but don't you need to change the 
character encoding of "不正パスワード情報" from the encoding of your 
script file (EUC-JP ?) to ISO-2022-JP before Base64 encoding it?

simon