2011-03-31 82 views
0

我知道如何发送电子邮件......我如何下载我的电子邮件?我一直在寻找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"; 
    } 
+1

Gmail使用SSL,确实POP3Client尝试,默认情况下? (我不会说perl) – Blorgbeard 2011-03-31 15:47:57

+0

你得到什么错误? – 2011-03-31 15:48:35

+1

当然,您必须在Gmail邮件设置 – Blorgbeard 2011-03-31 15:48:48

回答

3

要检查Gmail,您需要使用SSL:

my $pop = new Mail::POP3Client(USER  => "user", 
           PASSWORD => "pass", 
           HOST  => "pop.gmail.com", 
           USESSL => true); 

注意:您需要启用POP在您的Gmail acocunt。你能做到以下这个步骤:

http://mail.google.com/support/bin/answer.py?answer=13273