Count of two columns

vimal480 · 04-15-2005, 11:49 PM

Hello Friends,

I have tab delimited big text file (700-800 MB file size). File format is

New york 101
NJ 102
Neww York 102
NJ 101
AZ 105
AZ 105
AZ 101
New york 101
NJ 102
NJ 102

I want count of coumn 1 and count 2. Output like

2 New York 101
1 New York 102
1 NJ 101
3 NJ 102
1 AZ 101
2 AZ 105

I am using sort filename | uniq -c command but it is taking long time.

Thanks,

dustu76 · 04-16-2005, 02:25 AM

Code:

[/home/soumen/proj/perl] $ cat cnt.pl
#!/usr/bin/perl

my %arr;
my $bigfile = q(./in.txt);
open BF, "< $bigfile" or die "Could not open $bigfile : $!\n";
while (<BF>) {
        ++$arr{"$_"};
}
close BF;

while (my ($key, $cnt) = each %arr) {
        print "$cnt $key";
}
[/home/soumen/proj/perl] $ ./cnt.pl
1 AZ 101
1 NJ 101
2 AZ 105
1 New York 102
3 NJ 102
2 New york 101
[/home/soumen/proj/perl] $

HTH.