我该如何查收电子邮件?

时间:2011-03-31 15:43:02

标签: perl email

我知道如何发送电子邮件...如何下载电子邮件?我一直在搜索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 个答案:

答案 0 :(得分:3)

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

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

注意:您需要在Gmail帐户中启用POP。您可以按照以下步骤执行此操作:

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