POP3收信的perl客户端

最新推荐文章于 2024-11-16 10:00:00 发布

Aylazhang

最新推荐文章于 2024-11-16 10:00:00 发布

阅读量2k

点赞数

CC 4.0 BY-SA版权

文章标签： perl delete login server

本文链接：https://blog.youkuaiyun.com/Aylazhang/article/details/1720801

本文介绍了一个使用Perl编写的脚本，该脚本能够连接到新浪邮箱的POP3服务器并自动删除不符合指定条件（例如发件人域名不包含163.com）的邮件。通过简单的代码逻辑实现了邮件过滤功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

看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();