Evening all, i hope you guys can help !!

I'm working on a pass purchase system and would like to run a script every day from cron which looks at the previous day log files and produce some kind of stats for passes purchased / success / failures.

Issues.

I have around 25 passes and for each pass im running a grep for the SUBS_BOOK_ACC followed by an egrep for success and failure. Each one i put into a variable and print at the end. It works but i'm concerned im wasting resources on a system which is highly utilised.

Code:

grep SUBS_BOOK_ACC bkpass_log_2010042000000.audit | egrep `EPASS088|success` | wc -l

some sample data from the log file

2010-04-20_00:01:02:307,SUBS_BOOK_ACC,system@bkpass_1271_718059_59480,441234567899,EPASS088,,success,9999
2010-04-20_00:01:18:139,SUBS_BOOK_ACC,system@bkpass_1271_718076_442346,441234567899,EPASS088,,success,6585
2010-04-20_00:01:24:335,SUBS_BOOK_ACC,system@bkpass_1271_718080_786699,441234567899,EPASSV09,,PAY payment failed,211

ideal output would be something like

Pass ID Success Failures

EPASSV09 7338 21
EPASS088 3852 11
EPASS013 452 55

I understand that i can use perl to pull the data and inspect the file line by line, instead of using multiple greps.

I've started a perl script but im having issues understand the syntax. I've input the file but im struggling with the pattern matching. Can someone help me understand how i can inspect each line and search for a sting, count and print.?

Can someone please help. i understand chomp is used to split the line and that i split the line at the , mark then i try the pattern match

Code:

#!/usr/bin/perl -w
use POSIX;
 
$LOGFILE = "/export/home/user/stats.test";
open (LOGFILE) or die ("Could not open log file.");
 
foreach $line (<LOGFILE>){
 
        chomp($_);
        @line=split(",",$_);
        @time=split(",",$line[0]);
        if (( $line[0] = m/SUBS_BOOK_ACC/ )){
                $results{"$time[0]:$time[1]"}[0]++;
        }
        $results{"$time[0]:$time[1]"}[1]++;
print($results);

In the above code im trying to find out how many pas booking were attempted.

If anyone can help i'd be eternally grateful.

Many thanks

Jeffers