Shell Programming and Scripting

Hi,

Please help me in counting the below records(1st field) from samplefile:

Expected output:
Count Descr
-------------------------------------------
7 Mean manager
14 Mean2 manager


Samplefile
Mean manager 414d51204c50505741373636202020200073174ab99c
Mean manager 414d51204c50505741373636202020200073174acaba
Mean manager 414d51204c50505741373636202020200073174aceba
Mean manager 414d51204c50505741373637202020207e363a4a01f0
Mean manager 414d51204c50505741373637202020207e363a4a01f1
Mean manager 414d51204c50505741373637202020207e363a4aaae7
Mean manager 414d51204c50505741383134202020209e82204a22f7
Mean2 manager 414d51204c5050574135333720202020a64e234a5fc3e522
Mean2 manager 414d51204c50505741353338202020202e71234a191cda22
Mean2 manager 414d51204c50505741353338202020202e71234aa313da22
Mean2 manager 414d51204c5050574136333920202020ef7b234adb9bde22
Mean2 manager 414d51204c5050574136343020202020cc90234a8db9e022
Mean2 manager 414d51204c5050574137313020202020975a2b4add499223
Mean2 manager 414d51204c50505741373131202020201d532b4a39b57523
Mean2 manager 414d51204c505057413731342020202046a12c4a4d6c7322
Mean2 manager 414d51204c5050574137313520202020edac2c4a31b57022
Mean2 manager 414d51204c505057413731372020202052be2c4a83c87022
Mean2 manager 414d51204c505057413731372020202052be2c4ae3dd7022
Mean2 manager 414d51204c505057413731382020202094c52c4aa9619523
Mean2 manager 414d51204c505057413731392020202032ce2c4a4db38623
Mean2 manager 414d51204c505057413731392020202032ce2c4a5bc28623

Try out the below..

Code:

awk '{print $1,$2}' <<YOUR FILENAME HERE>> |sort|uniq -c

This wont give the expected output:
Your code spits as below:
1 Mean manager 414d51204c5
1 Mean manager 414d51204c5
1 Mean manager 414d51204c5
1 Mean manager 414d51204c5
1 Mean manager 414d51204c5
.
.
.
.

Code:

#!/usr/bin/perl
use strict;
use warnings;
my $count_for_Mean_Manager;
my $count_for_Mean2_manager;
my $log_file = "sample.txt";
open (FP , $log_file) or die "Can't open '$log_file' for reading."; 
while (<FP>)
{

	if (/Mean manager/)
	{
		$count_for_Mean_Manager++;
	}
	if (/Mean2 manager/)
	{
		$count_for_Mean2_manager++;
	}
}

print "total count for Mean manager is $count_for_Mean_Manager\n";
print "otal count for Mean2 manager is $count_for_Mean2_manager\n";

Thanks
NT

Thanks a lot for your reply, but this file is havin many different Mean* fields.

Code:

awk '{ ARR[ $1 " " $2  ]++ } END { for( A in ARR ) print ARR[A] ": " A }' filename

Hi Prashant,

I did not get what u wanted to say. Diffrent Mean field means you want to capture Mean 1, mean2, mean 3 something like that. What is the last number in Mean(?) and they are random numbers or serial number.
You can as many as if statements if it is not a that big file.

Thanks
NT