Perl의 전자 메일 서버에서 직접 새 전자 메일을 수신하는 방법

Question

응용 프로그램을 바탕 화면에두고 전자 메일 트리거를 통해 직접 실행하고 싶습니다. 기본적으로 서버에서 정기적으로 새 메일을 가져 와서 특정 메일 수신시 스크립트를 트리거하는 스크립트가 필요합니다. 어떻게 진행해야합니까? 즉 Perl의 어떤 라이브러리가 도움이 될 수 있습니까?

필자는 POP 및 IMAP 설명서를 읽었습니다 ... 저는 서버에서 수신하는 데 도움이 될 수있는 Perl 라이브러리를 모릅니다.

Answer 1

Net::POP3 내가 solution..only 권리를 찾고 있지 않다

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;