« 如何用Postfix取代Qmail呢？ | Main | Postfix邮件列表上关于大容量系统的讨论 »
版权声明：可以任意转载，转载时请务必以超链接形式标明文章原始出处和作者信息及本声明。
本文网址：http://www.hzqbbc.com/blog/arch/2002/09/aepostfixeeeaec.html
September 03, 2002
如何在postfix队列里删除以特定字符开头的邮件？
作为Postfix MTA的管理员，维护队列是家常便饭，但如何能够方便的按自己的意愿控制对列呢？这需要一点perl和regexp的知识。
以下提供一个perl的小程序，由一个国外朋友写的，通过命令行传递正则表达式，匹配的邮件将被删除。
queue_mgr.pl
#!/usr/bin/perl
$REGEXP = shift || die "no email-adress given (regexp-style, e.g.
bl.*\@yahoo.com)!";
@data = qx</usr/sbin/postqueue -p>;
for (@data) {
if (/^(\w+)\*?\s/) {
$queue_id = $1;
}
if($queue_id) {
if (/$REGEXP/i) {
$Q{$queue_id} = 1;
$queue_id = "";
}
}
}
open(POSTSUPER,"| postsuper -d -") || die "couldn't open postsuper" ;
foreach (keys %Q) {
print POSTSUPER "$_\n";
};
close(POSTSUPER);
Posted by hzqbbc at September 3, 2002 12:57 PM