in reply to MIME::Tools to save attachment properly
I am trying to parse an email from Yahoo with split-7z files attached to them.
I was able to log in successfully into Yahoo with Net::IMAP::Simple, which was assigned to $server.
my code
When I run this, I getmy $parser = MIME::Parser->new( ); my $entity = $parser->parse_data(join '', @{$server->get($i) +}); my $numParts = $entity->parts; my @parts = $entity->parts; if ($numParts > 0) { foreach my $part (@parts) { my $type = $part->mime_type; my $bh = $part->bodyhandle; print "MIME Type: $type\n"; if (defined $bh) { open(my $OUTFILE, ">", $bh->path) or die $!; binmode($OUTFILE); $bh->print(\$OUTFILE); close($OUTFILE); } #End IF $bh defined } # End For Each Part } # End If Num of Parts > 0
msg-1304-1.txt of size 826
msg-1304-2.html of size 2,661
_Archive.7z.046 of size 0, when it should be 8,975,069
All I care about is the _Archive.7z.001 thru _Archive.7z.046
Help me O' Great Monks
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: MIME::Tools to save attachment properly
by Corion (Patriarch) on Jan 24, 2017 at 08:00 UTC | |
by sachss (Sexton) on Jan 24, 2017 at 12:21 UTC | |
by sachss (Sexton) on Jan 25, 2017 at 19:51 UTC | |
by Corion (Patriarch) on Jan 24, 2017 at 12:32 UTC |
In Section
Seekers of Perl Wisdom