postfix日志每天发送情况统计

原创 2007年09月13日 13:57:00
#!/usr/bin/perl
use POSIX qw(strftime);
my $mon = strftime("%b",localtime(time()-86400));
my $day = strftime("%d",localtime(time()-86400));
my $yesterday  = strftime("%Y%m%d",localtime(time()-86400));
my %success;
my %all;

my $dom  = shift || "";


my @f = </var/log/maillog*>;
my $last_file = (map { $_->[1] } sort { $b->[0] <=> $a->[0] } map  { [ (stat($_))[9], $_ ] } @f)[0];

my $pat_one = qr/$mon/s+$day.*?to=<(.*?/@(?:[^.]+/.)*$dom[^>]*)>.*?status=sent/x;
my $pat_two = qr{$mon/s+$day.*?to=<(.*?/@(?:[^.]+/.)*$dom[^>]*)>.*?}x;

open LOG,$last_file;
while(<LOG>) {
  if (/$pat_one/) {
    $success{$1}++;
  }
  if (/$pat_two/) {
    $all{$1}++;
  }
}
close LOG;

最后对 %success,%all操作,可以写到文本,可以记录到数据库等等

运行: xxx.pl domain_name  
例如:a.pl sohu.com
 
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

通过awk对日志文件每天统计并入库到MySQL的过程讲解

互联网公司每天都要统计日志文件,从中挖掘出想要的信息,比如一个软件的安装量、活跃度等。这些信息都需要入库,并进行展示。下面,对这个实现过程进行讲解。 具体的过程可分为以下几个步骤: (1)awk统...

postfix日志腳本

每天邮寄回系统情况的SAR脚本

!/bin/bashedit by ZengMuAnSha 2016-01-19 http://blog.csdn.net/zengmuanshaLogName=”/var/log/sa/sadat...

使用ubuntu安装邮件服务器Postfix发送邮件的过程

原文来自: http://blog.csdn.net/basicthinker/article/details/6167606 Ubuntu 服务器管理员手记(二):快...

查看日志工具及内存情况

  • 2015-07-08 10:56
  • 457KB
  • 下载

如何在Ubuntu 16.04上安装并配置Postfix作为只发送SMTP服务器

提供:ZStack云计算 内容介绍Postfix是一套邮件传输代理(简称MTA),用于发送并接收邮件。在本教程中,我们将安装并配置Postfix,并利用它仅为本地应用发送邮件——所谓本地应用,即与Po...

谈谈每天的SEO工作日志怎么写?

很多人从小就有记日志,写日志的习惯,刚进如一家新单位,在SEO部门,主管让我每天写一份工作日志,那么SEO工作日志怎么写?下面我就将我每天的日志发布出来共大家参考。 4月3日...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)