Shell Programming and Scripting

country_error : xxxxxxxxxxxxxxxxxxxxxxxxxx,99999999999999999
country_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
customer_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
country_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
customer_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
customer_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
customer_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
country_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
country_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy

"cat log_sam.txt | grep "error" | sed 's/^\(.*_error\):\(.*\)/\1/g' | sort | uniq -c| awk -F " " '{print $2,"-",$1}'"==>

country_error - 5
customer_error - 4

$ cat infile 
country_error : xxxxxxxxxxxxxxxxxxxxxxxxxx,99999999999999999
country_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
customer_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
country_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
customer_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
customer_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
customer_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
country_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
country_error:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
$ cat script.pl
use warnings;
use strict;

die qq[Usage: perl $0 input-file\n] unless @ARGV == 1;

my ( %error );

while ( <> ) {
        my @f = split /\s*:\s*/;
        next if @f > 2;
        $error{ $f[0] }->[0] = $error{ $f[0] } ? $error{ $f[0] }->[0] : $.;
        $error{ $f[0] }->[1]++;
}

for ( keys %error ) {
        printf qq[%s - %d - %d\n],
                $_,
                $error{ $_ }->[0],
                $error{ $_ }->[1];
}
$ perl script.pl infile 
customer_error - 3 - 4
country_error - 1 - 5

 perl -e 'while(<>){
  ($error)=split(/\s|:/,$_); # capture the error type
  $errors{$error}{"first"}=$. if ! $errors{$error}{"count"}++;# increment the count for this error and note the line number if this is the first instance.
}
for $error (keys %errors){
  print "There were ", $errors{$error}{"count"}," errors of type $error, the first occurring on line ", $errors{$error}{"first"},"\n";
}'  tmp.data
There were 4 errors of type customer_error, the first occurring on line 3
There were 5 errors of type country_error, the first occurring on line 1

for i in customer_error country_error
do 
    echo "$i - `grep -n $i infile | head -1 | cut -d':' -f1` - `grep -c $i infile`"
done

for i in `nawk -F: '/error/ {print $1|"sort"}' infile | sed 's, $,,g' | uniq`
do
    echo "$i - `grep -wn $i infile | head -1 | cut -d':' -f1` - `grep -wc $i infile`"
done