发件队列查询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(<FILE>) {   if(/.* (\w+.*@\w+.*\..*)/)   { $fromuser=$1 #!/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(<file>)
{
  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;
  }   } print "----- mail user-----\n"; @frompai=sort{ $From{$b} <=> $From{$a} or $a cmp $b } keys %From; foreach (@frompai) { $i++;    print "$_\:";   print "$From{$_}\n";   last if $i==16;       } $i=0; print "----- MAILER-DAEMON-----\n"; @topai=sort { $To{$b} <=> $To{$a} or $a cmp $b} keys %To; foreach (@topai) { $i++;   if(/(\w+@\w+)/)   {   print "$1\:";   print "$To{$_}\n";   }   last if $i==16; } 总结

以上是内存溢出为你收集整理的发件队列查询perl(用于生产环境)全部内容，希望文章能够帮你解决发件队列查询perl(用于生产环境)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。