我知道如何发送电子邮件...如何下载电子邮件?我一直在搜索cpan&谷歌和遇到了Mail :: POP3Client ......我无法上班。我有一个Gmail帐户,但希望能够检查其他帐户(可能会或可能不会弹出)。
#!/usr/bin/perl
use strict;
use warnings;
use Mail::POP3Client;
use Mail::POP3Client;
my $pop = new Mail::POP3Client( USER => "user",
PASSWORD => "pass",
HOST => "pop.gmail.com" );
for (my $i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {
/^(From|Subject):\s+/i and print $_, "\n";
}
print "\n";
}
答案 0 :(得分:3)
要检查Gmail,您需要使用SSL:
my $pop = new Mail::POP3Client( USER => "user",
PASSWORD => "pass",
HOST => "pop.gmail.com",
USESSL => true );
注意:您需要在Gmail帐户中启用POP。您可以按照以下步骤执行此操作: