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