Shell Programming and Scripting

awk -v D=$(date -d " -180 days" +%Y%m%d) '
BEGIN {
    split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", T, ",")
    for(i=1;i<13;i++) M[T[i]]=sprintf("%02d", i);
}
($1M[$2]$3)+0 < D { F++}
END { print "Found " F " errors" } ' /test/audit.log*

cat audit.log* | ./d180.pl

#! /usr/bin/perl

use Time::Local;

%mon2num = qw(
  Jan 0  Feb 1  Mar 2  Apr 3  May 4  Jun 5
  Jul 6  Aug 7  Sep 8  Oct 9  Nov 10 Dec 11
);

$now=time();
$day180=86400*180;

sub lessthan180 {
        local $rc = 0;
        ($yr, $mth, $day, $hms) = split(/ /);
        ($hr, $min, $sec) = split(/:/, $hms);

        # strip all leading zero
        $day =~ s/^0*//;
        $hr  =~ s/^0*//;
        $min =~ s/^0*//;
        $sec =~ s/^0*//;

        $diff = $now - timelocal($sec, $min, $hr, $day, $mon2num{$mth}, $yr);
        if ( $diff < $day180 ) {
                $rc = 1;
        }
        return $rc;
}


while ( <STDIN> ) {
        chomp();
        if ( lessthan180($_) == 1 && /error-5/ ) {
                print $_, "\n";
        }
}

awk -v D=$(date -d " -180 days" +%Y%m%d) ' 
BEGIN {
    split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", T, ",")
    for(i=1;i<13;i++) M[T[i]]=sprintf("%02d", i);
}
NR==FNR{A[$0]=0;next}
($1M[$2]$3)+0 < D {for(s in A) if($0 ~ s) A[s]++}
END{for(s in A)print s" "A[s]}' errorcodes.txt /test/audit.log*