#!/bin/perl -w
use strict;         ## be strict! always!

my $logdir  = '/opt/app1/osa/ebcp/5_5_4/log';
my $logfile = 'AppOsaEbcp1.log';

# Changing dir to Log dir; use perl!
chdir $logdir                or die "chdir $logfile failed: $!\n";

# check open for success!!
open my $fh, '<', $logfile   or die "$logfile: open failed: $!\n";

my $major=0;
my $minor=0;
my $critical=0;

while( <$fh> ) {
     chomp;
      
	if ( /MAJOR/ ) {
		$major++;
	}
	elsif ( /CRITICAL/ ) {
		$critical++;
	}
	elsif ( /MINOR/ ) {
		$minor++;
	}
}

close $fh or die "$logfile: close failed: $!\n";

# no need for printf if you want to print simple strings
print "Count of MAJOR = $major, CRITICAL = $critical, MINOR = $minor\n";

##</code><code>##

#!/bin/perl -w
use strict;           ## be strict! always!

my $logdir = '/opt/app1/osa/ebcp/5_5_4/log';
my $logfile = 'AppOsaEbcp1.log';

# Changing dir to Log dir; use perl!
chdir $logdir or die "chdir $logfile failed: $!\n";

# check open for success!!
open my $fh, '<', $logfile or die "$logfile: open failed: $!\n";

my %count;
while( <$fh> ) {
	if ( /(MAJOR|MINOR|CRITICAL)/ ) {
		$count{$1}++;
	}
}

close $fh or die "$logfile: close failed: $!\n";

# now with a printf()
printf(
	"Count of MAJOR = %d, CRITICAL = %d, MINOR = $%d\n",
	@count{qw(MAJOR CRITICAL MINOR)}
);