HTMLメールとかなくなればいいと思うんですがまぁなくなりません。 諸事情によりHTMLメールで送られてきたメールを プレーンテキストなメールに置き換える必要があったので試してみた。 メールは基本Email::MIMEで解析しているが色々ごにゃごにゃやってるので一部抜粋のこと。 package Proj::MailParser; use strict; use warnings; use base 'Email::MIME'; sub body { my $self = shift; my $body = $self->SUPER::body; return $body if $body && ($body !~ 'This is a multi-part message in MIME format.'); for my $part ($self->parts) { if (