perl - 如何在 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;