perl利用pop3 收取邮件

#!/usr/bin/perl -w
use strict;
use Mail::POP3Client;
 
my $pop;
my $num_mesg;
my $i;
my $username;
 
our $mail_host  = 'imap.exmail.qq.com';  
our $mail_user  = 'yuexiaosheng@java-er.com';  
our $mail_pass  = '8888899999';  
 
my $pop = new Mail::POP3Client( $mail_user, $mail_pass, $mail_host );
 
$num_mesg = $pop->Count;	#How many messages are there?
print ("You have ".$num_mesg." new messages.\n");
 
exit();
for ($i = 1; $i <= $num_mesg; $i++) {
print $pop->Head($i), "\n";	#print header for each message
}

电脑缺少 mail 包的同学

perl -MCPAN -eshell

cpan> install Mail::POP3Client

参考我的 perl 另外一个文章 https://java-er.com/blog/perl-read-url-connect-lwp/

如果你是一名技术人员可加我QQ 2651-0442-02,如果你是 java 技术人还可以加入QQ群 1784-9136-0