Hi David, here is my piece of code. I got the first part working
that you were helping me with originally much thanks.

I tried to include the next part of the code to capture the date in
the logfile. For example - "Tue Apr 20 2008" but when I compare what
is in the file ($datestr =~ @array) of course it's not working
properly. Any suggestions would be great.


my $datestr = UnixDate("today","%a %b %e %Y");


%abuser_cnt = ();

my $file="/var/log/app.log";

open (INFILE, "<$file") || die "Cannot open file";
while (<INFILE>) {
chomp;
if ( $_ =~ m/-j\s?[0-9]?/){
my @array = ($day, $mth, $daynum, $year) = (split(/
\s+/,$_))[0,1,2,4];
if ($datestr =~ @array ) {
my ($day, $mth, $daynum, $year, $user) = (split(/\s+/,$_))
[0,1,2,4,7];
$abuser_cnt{$day,$mth,$daynum,$year,$user}++;
}
}
}

@abusers = sort keys %abuser_cnt;

foreach $user (@abusers) {
print "$user\n";
}