内容简介:电脑缺少cpan> install Mail::POP3Client
#!/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
首发地址:月小升博客 –无特殊说明,文章均为月小升原创,欢迎转载,转载请注明本文地址,谢谢以上所述就是小编给大家介绍的《perl利用pop3 收取邮件》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!
猜你喜欢:- Cloudflare 推出域名注册服务,表示只收取成本价
- Android”挂逼”修炼之行—支付宝蚂蚁森林「能量自动收取插件」开发原理解析
- LWN:利用debounce buffer来阻止恶意设备利用DMA窃取信息
- 新医药 Leon Nanodrugs完成1850万欧元A轮融资,利用粒子合成方法提高药物利用率
- JNDI 注入利用工具
- Outlook滥用利用链
本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们。
正则表达式必知必会(修订版)
福达 (Ben Forta) / 杨涛 / 人民邮电出版社 / 2015-1-1 / 29.00元
《正则表达式必知必会》从简单的文本匹配开始,循序渐进地介绍了很多复杂内容,其中包括回溯引用、条件性求值和前后查找,等等。每章都为读者准备了许多简明又实用的示例,有助于全面、系统、快速掌握正则表达式,并运用它们去解决实际问题。正则表达式是一种威力无比强大的武器,几乎在所有的程序设计语言里和计算机平台上都可以用它来完成各种复杂的文本处理工作。而且书中的内容在保持语言和平台中立的同时,还兼顾了各种平台之......一起来看看 《正则表达式必知必会(修订版)》 这本书的介绍吧!