近代的なメールの添付ファイルをとりだすライブラリ for Perl といえば Email::MIME::Attachment::Stripper - tokuhirom's blog.

http://search.cpan.org/~cwest/Email-MIME-Attachment-Stripper-1.31/id:takefumi が MIME::Parser を使ってるのをみて、最近はなんかもっといいライブラリがあって云々というハナシを昔 #plagger-ja かなんかでしたよなあと思って、ログをあさってみたらあった。cwest の Email::MIME だった。MIME::Parser はインターフェースがなんなかんじなので、こっちをためしてみることに。今回の要件は添付ファイルが一個ついてくるメールから、添付ファイルをとりだすだけ。まずは、cpan コマンドでいんすこ。依存モジュールがごっそりはいるけど、全部テストとおったのでよし。標準入力からファイル読み込んで、最初の添付ファイルを出力するのは、こんな感じね。 use strict; use warnin