ＰｅｒｌにおいてＰＯＰ３経由でメールを受信する方法。添付ファイル

質問

http://digit.que.ne.jp/work/index.cgi?Perl%A5%E1%A5%E2%2FPerl%A4%C7%A5%E1%A1%BC%A5%EB%A4%F2%BC%F5%A4%B1%A4%EB

を参考にしてメールを受信するプログラムをつくってみました。
しかし、添付ファイルを別に保存する方法がわかりません。
（http://digit.que.ne.jp/work/index.cgi?Perl%A5%E1%A5%E2%2FPerl%A4%C7%A5%E1%A1%BC%A5%EB%A4%F2%BC%F5%A4%B1%A4%EB　より）

if (open(OUT, ">$outfile")) {
print OUT @{$message};
close OUT;
}

のところで　@{$message} を操作すれば、本文や添付ファイルを別々に保存することができるとおもうのですが、やり方がわかりません。ＭＩＭＥ：：Ｐａｒｓｅｒを使えばよいという情報がありましたが、日本語ファイル名で不具合があるなどという情報も見受けられます。
実際レンタルサーバにおくのでＭＩＭＩ：：Ｐａｒｓｅｒも使えるかどうか微妙です。

添付ファイルと本文を別々に保存する方法が分かる方がおられましたら、ご教授お願いします。

回答No.1

zebedeer · ベストアンサー

Net::POP3に詳しくないのであれですが、とりあえず「$message」を「use Data::Dumper」してみては？

use Data::Dumper;
print $message;

#最悪内容がそのままでも、mime_plsとか使えば何とかなるでしょう。

お礼

Data::Dumper ですね。調べてみました

どうやら活用できそうです。ありがとうございます。