Hi,
I'm using Email::MIME to iterate through all parts of a multipart email,
with the following code, which I have somewhat copied from the manual
Email::MIME manual.
use Email::MIME;
my $email;
{
local $/;
$email = Email::MIME->new();
}
$email->walk_parts(sub {
my ($part) = @_;
* Erik Logtenberg [2010-06-03T14:23:52]
> $email->walk_parts(sub {
> my ($part) = @_;
> warn($part->content_type . ": " . $part->parts);
> });
>
> This little snippet is supposed to read an email from stdin and print
> the content-types of all parts (plus the amount of subparts that it ha
> This looks like an incredibly stupid bug based on the incredibly stupid
> ->parts
> method. Its behavior is really lame.
>
> I'm afraid I don't have a lot more time to look at this right now, but I'd
> play
> around with tweaking walk_parts (in Email::MIME) to use ->subparts instead,
> which