マルチパートメールの添付ファイルを取り出す (module)MIME-Parser back MIME::Parser にて ---- use MIME::Parser; my $parse = new MIME::Parser; $parse->output_to_core(1); my $buf = (メールデータの取得) my $entity = $parse->parse_data($buf); # # ヘッダに対する処理 # # 以下、ボディに対する処理 # 入れ子のマルチパートがあるかもしれないので、再帰処理にて &body_parse($entity); sub body_parse { my $entity = shift; # part 毎に分解 (要素数 = パート数) # マルチパートでない場合は偽 my @parts = $entity->parts; if (@p