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