#!/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; }