[PerlChina] 求助如何可以读取邮箱中邮件啊

[truncatei at gmail.com]

模块：Net::POP3 - Post Office Protocol 3 Client class
下面是pod文档里的例子：

    use Net::POP3;

    # Constructors
    $pop = Net::POP3->new('pop3host');
    $pop = Net::POP3->new('pop3host', Timeout => 60);

    if ($pop->login($username, $password) > 0) {
      my $msgnums = $pop->list; # hashref of msgnum => size
      foreach my $msgnum (keys %$msgnums) {
        my $msg = $pop->get($msgnum);
        print @$msg;
        $pop->delete($msgnum);
      }
    }

    $pop->quit;




On Dec 12, 2007 6:29 PM, Steven Zhu <stevenzyk at gmail.com> wrote:

> 我想读取邮箱中的邮件，提取邮件中的信息，不知道如何可以读取邮件哪
>


-- 
如果觉得无聊，您不妨访问Google Reader消遣 http://www.google.com/reader/view
要尝试黑版本Google，请访问
http://www.google.com/custom?q=&sa=Search&client=pub-4021907304270164&forid=1&channel=7519554017&ie=UTF-8&oe=UTF-8&cof=GALT%3A%23FF9900%3BGL%3A1%3BDIV%3A%230033FF%3BVLC%3ACC9900%3BAH%3Acenter%3BBGC%3A000000%3BLBGC%3A000000%3BALC%3AFFFFFF%3BLC%3AFFFFFF%3BT%3ACCCCCC%3BGFNT%3A33CC00%3BGIMP%3A33CC00%3BFORID%3A1%3B&hl=en
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20071212/b95aa779/attachment.html