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