POP3收信的perl客户端
来源:互联网 发布:生活服务淘宝店铺 编辑:程序博客网 时间:2024/05/16 08:38
看advprog里面的Perl代码,自己试验了一下,很好用。主要是把新浪邮箱里我不关心的邮件统统删除。
#!/usr/local/bin/perl
use Net::POP3;
$m = Net::POP3->new('pop.sina.com.cn'); # Name of POP server
die "Could not open account" unless $m;
$n = $m->login('xxxx', 'xxxx'); # Login, passwd
print "Number of msgs received: $n/n";
$r_msgs = $m->list(); # Returns a ref-to-hash mapping
# msg_id to msg_size
foreach $msg_id (keys %$r_msgs) {
$rl_msg = $m->top($msg_id); # Get top three lines from message
foreach my $line (@$rl_msg) {
unless ($line =~ /@163/.com/is) { #只要不是从163来的信件,统统删除
$m->delete($msg_id) or warn "can't delete mail/n";
print $line;
}
}
}
$m->quit();
#!/usr/local/bin/perl
use Net::POP3;
$m = Net::POP3->new('pop.sina.com.cn'); # Name of POP server
die "Could not open account" unless $m;
$n = $m->login('xxxx', 'xxxx'); # Login, passwd
print "Number of msgs received: $n/n";
$r_msgs = $m->list(); # Returns a ref-to-hash mapping
# msg_id to msg_size
foreach $msg_id (keys %$r_msgs) {
$rl_msg = $m->top($msg_id); # Get top three lines from message
foreach my $line (@$rl_msg) {
unless ($line =~ /@163/.com/is) { #只要不是从163来的信件,统统删除
$m->delete($msg_id) or warn "can't delete mail/n";
print $line;
}
}
}
$m->quit();
- POP3收信的perl客户端
- pop3客户端,email收信
- jmail4.1用pop3收信的例子
- 改寫後的使用javamail pop3收信的javabean
- javamail通過pop3收信,附件下載,我的辦法(代碼!)
- 网络编程之POP3协议邮箱收信
- Gmail的pop3客户端设置
- 一个POP3客户端的C#类
- 怎样在 Debian GNU/Linux 下用POP3协议收信
- javamail发信和收信机制(smtp、pop3、imap)
- 用Perl编写读取POP3邮箱的应用程序
- 用Perl编写读取POP3邮箱的应用程序
- 用Perl编写读取POP3邮箱的应用程序
- 用perl收SSL下的POP3邮件
- Gmail 收信的一些规则
- Perl编写的socket客户端
- 无需配置POP3等参数的邮件客户端KooMail
- exchange2013 pop3模式客户端设置的一些端口变化
- CComboBoxEx控件使用示例
- DNS配置全文
- IE7发布正式版 开发者应注意兼容性问题
- JUnit学习笔记(2007版)
- RequestProcessor类的process()方法执行流程
- POP3收信的perl客户端
- badboy中文手册
- pys60之背景透明png
- 控制台程序中控制输出颜色
- 使用WindowsXP视觉风格
- 计算列的另类用法
- Automake(1)
- 把自定义表格放入到grideview的模板列中 如果通过表格中的一个按钮得到当前行
- 关于在C#中调用C++ DLL 时的参数传递