以下の様な感じ。
# メールをパース my $mail = Email::MIME::MobileJP::Parser->new($mail_str); my %headers = @{ $mail->mail->{header}->{headers} };
以下の様な感じ。
# メールをパース my $mail = Email::MIME::MobileJP::Parser->new($mail_str); my %headers = @{ $mail->mail->{header}->{headers} };