I'm trying to read the body and the attachment in a mime message. I keep
getting the folling error.
Use of uninitialized value in pattern match (m//) at
/usr/share/perl5/Email/MIME/ContentType.pm line 24.
#!/usr/bin/perl -w
use Net::POP3;
use Email::MIME;
my ($mail_server, $username, $password, $parsed, $decoded) = ("xx",
"xx", "xx", "", "");
$pop = Net::POP3->new($mail_server)
or die "Can't open connection to $mail_server : $!\n";
defined ($pop->login($username, $password))
or die "Can't authenticate: $!\n";
$messages = $pop->list
or die "Can't get list of undeleted messages: $!\n";
foreach $msgid (keys %$messages) {
$message = $pop->get($msgid);
$parsed = Email::MIME->new(@$message);
$decoded = $parsed->body;
print "$decoded";
unless (defined $message) {
warn "Couldn't fetch $msgid from server: $!\n";
next;
}
# $message is a reference to an array of lines
# $pop->delete($msgid);
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/