Here's the code: 
#!/usr/bin/perl -w

use MIME::Parser;
use DBI;
use strict;

my $database = "xxxxxxx";
my $dbuser = "xxxxxxx";
my $dbpasswd = "xxxxxxx";
my $outputdir = "/some/directory";

my $parser = new MIME::Parser;
$parser->output_dir($outputdir);
$parser->output_prefix("attachment");
$parser->output_to_core();
my $entity = $parser->read(\*STDIN);
my $msg_header = $entity->stringify_header;
my $num_parts = $entity->parts;
my $msg_body;

if ($num_parts > 0) {
    for (my $i = 0; $i < $num_parts; $i++) {
        my $part = $entity->parts($i);
        my $type = $part->mime_type;
        my $bh = $part->bodyhandle;
        if ($type =~ m/text/) {
            if (my $io = $part->open("r")) {
                while (defined($_ = $io->getline)) {
                    $msg_body .= $_;
                }
                $msg_body .= "\n\n";
                $io->close;
            }
            my $status = system("rm '$bh->{MB_Path}'");
            die $! unless $status == 0;
        } else {
            my $file = $bh->{MB_Path};
            my $oldfile = $file;
            $file =~ s/$outputdir\///;
            my $now = time();
            $file = $now . "-" . $file;
            my $newfile = $outputdir . "/" . $file;
            my $status = system("mv '$oldfile' '$newfile'");
            die $! unless $status == 0;
            $file = "some/directory" . $file;
            $file = "http://url/" . $file;
            $msg_body .= "ATTACHMENT: $file\n";
        }
    }
} else {
    if (my $io = $entity->open("r")) {
        while (defined($_ = $io->getline)) { 
            $msg_body .=  $_;
        }
        $msg_body .= "\n";
        $io->close;
    }
    $entity->purge;
}

### The rest is just database processing ...

[download]
The problem is that the parser dies on some mails when it should remove those temporary files.

(I know this is dirty code, but I made it most out of trial-and-error.)

In reply to RE: Re: How to parse emails with and without attachments? by le
in thread How to parse emails with and without attachments? by le

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.