Perl/メール/MIMEヘッダエンコードのバックアップ(No.1) - yanor.net/wiki

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl/メール/MIMEヘッダエンコードへ行く。
- 1 (2011-10-17 (月) 10:50:26)

MIMEエンコード

エンコード

 use utf8;
 use Encode qw/from_to encode decode/;
 
 my $subject = 'マクドナルドのおすすめ情報';
 my $_subject =  encode 'utf8', $subject;
 from_to($_subject, 'utf8', 'MIME-Header-ISO_2022_JP');
 print "$_subject\n";

デコード

 use utf8;
 use Encode qw/from_to encode decode/;
 
 my $str = '=?iso-2022-jp?B?GyRCJV4lLyVJJUolayVJJE4kKiQ5JDkkYT5wSnMbKEI=?=';
 my $_str = decode 'MIME-Header', $str;
 $_str = encode 'euc-jp', $_str;
 print "$_str\n";

 print "$_str\n";