10/03/17 09:17:32
>>92
レスありがとうございます。
URLﾘﾝｸ(yanor.net)
こちらのメール送信を参考にさせてもらっています。
my $email_to = '00000000000@docomo.ne.jp';
MIME::WordDecoder->default(
MIME::WordDecoder->new([
'*' => sub{jcode(shift)->sjis},
]
)
);
#メール読み込み準備
my $parser = new MIME::Parser;
$parser->output_to_core(1);
$parser->tmp_recycling(1);
$parser->use_inner_files(1);
my $entity = $parser->parse(\*STDIN);
my $subject = decode('MIME-Header', $entity->head->get('Subject'));
上記のようにして$subjectを抜き出して、>>86を通しています。
このままですと、日本語は大丈夫で絵文字が全て〓となってしまいます。