简单统计postfix发送人记录的脚本

用法：st.pl > log

###--------st.pl----------------------------------------- ##############
#!/usr/bin/perl -w
use POSIX qw(strftime);

open LOG,"/var/log/maillog";
my %hash;
while(<LOG>) {
  if ($_ =~ m/to=<(.*?)>/) {
    $hash{$1}++;
  }
}
my $i=0;
foreach (sort keys %hash) {
 print "$_/n";
 $i++;
}
print "---All Count:",$i."---/n";
close LOG;