-->
脚本功非常简单删除非2007年的所有邮件
#!/usr/bin/perl -w
use strict;
#本模块主要用于解析email中的内容
use Email::Simple;
foreach my $mailfile (@ARGV){
$/='';
open FD,$mailfile;
my $mail=<FD>;
$/='\n';
#建立一个Email::Simple主体
my $email=Email::Simple->new($mail);
#从邮件中解析邮件头
my @received=$email->header("Received");
#设置邮件头
my $from=$email->header("From");
my $date=$email->header("Date");
my $subject=$email->header("Subject");
if( $date =~ /2007/){
}else{
print "邮件名:$mailfile\n--------------------------\n发件人:$from\n发件日期:$date\n邮件主题:$subject\n";
print "此删除此邮件\n";
`rm -rf $mailfile`;
}
}
当然我们可以使用模块实现更多功能。
从邮件中提取邮件的：发件人，发件日期，主题，邮件主体
然后进行批配处理，当我们也可以对内容进行更改然后后保存。
发表评论