perl出现问题Email :: MIME

Question

我在perl中使用Email：MIME模块时遇到问题。 这可能是因为我使用它错了，但找到使用它的例子很困难。 我很确定我应该使用完整消息的标量作为输入，但是它不起作用。 这是我的代码和输出

码：

#!/usr/bin/perl

use Net::POP3;
use Email::MIME;
local $| = 1;

my $pop = Net::POP3->new('pop.mail.server');

print "Logging in....";
if ($pop->login('username','password')) {
 print "logged in successfully\n";
 my $msgs = $pop->list;
 my @keys = keys(%$msgs);
 my $msgr = $pop->get($keys[1]); #Selects a more or less random email for testing
 my $msg = join("",@$msgr);

 my $parsed = Email::MIME->new($msg);
 foreach my $key (keys %$parsed) {print $key.":".$parsed{$key}."\n";}
}

输出：

Logging in....logged in successfully
body:
mycrlf:
body_raw:
parts:
ct:
header:

Answer 1

始终use strict; 并use warnings; 。 这将立即指出一个错误：

Global symbol "%parsed" requires explicit package name at p line 21.

第21行应为：

foreach my $key (keys %$parsed) {print $key.":".$parsed->{$key}."\n";}

Answer 2

我认为应该在你的print语句中$parsed->{ $key }