如何直接从Perl中的电子邮件服务器接收新电子邮件

Question

我有一个应用程序坐在桌面上，我想通过电子邮件的触发器直接运行它。基本上我想要一个脚本，它会定期从服务器获取新邮件，并在收到特定邮件时触发我的脚本。 我应该如何进行，或者换句话说，Perl中的哪些库可以提供帮助？

我已经阅读了POP和IMAP手册......我只是不知道Perl中的一个库可以帮助我收听服务器。

Answer 1

Net::POP3是一个很好的起点...这是他们手册页中的一个例子......

use Net::POP3;
$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;