论坛 › Perl › 发件队列查询perl(用于生产环境)

kevin0490 发表于 2018-8-31 12:22:43

发件队列查询perl(用于生产环境)

#!/usr/bin/perl　　open FILE,"mailq|";
　　#open FILE,"1\.txt" or die "can not open file!$!";
　　%From;
　　%To;
　　my $i=1;
　　my $tuiuser=0;
　　my $iftuixin=0;
　　while()
　　{
　　if(/.* (\w+.*@\w+.*\..*)/)
　　{ $fromuser=$1;
　　$From{$fromuser}+=1;
　　# print $fromuser;
　　}
　　if($tuiuser==1)
　　{
　　if(/.*?(\w+@.*)/)
　　{
　　s/^\s+\s+$//;
　　$To{$_}+=1;
　　$tuiuser=0;
　　}
　　if($iftuixin==1)
　　{
　　s/^\s+\s+$//;
　　$To{$_}+=1;
　　$iftuixin=0;
　　$tuiuser=0;
　　}
　　unless(/.*@.*/)
　　{
　　$iftuixin=1;
　　}
　　}
　　if(/MAILER-DAEMON/)
　　{ $tuiuser=1;
　　}

查看完整版本: 发件队列查询perl(用于生产环境)