Perl/メール/MIMEヘッダエンコードの変更点

追加された行はこの色です。
削除された行はこの色です。
Perl/メール/MIMEヘッダエンコードへ行く。
Perl/メール/MIMEヘッダエンコードの差分を削除

* MIMEエンコード [#h7c9ef19]
* MIMEヘッダエンコード [#h7c9ef19]

** エンコード [#odc53a72]
 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";

** デコード [#uecede31]
 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";