array problem

shary · #1 (**permalink**) 02-09-2007

Dear Experts,

please help me out once again my array concepts is not very clear i have one text file like.
1|usa|hh
2|usa|ll
3|usa|vg
4|uk|nn
5|uk|bb
6|kuwait|mm
6|kuwait|jkj
7|dubai|hh

i want to store the third fied of a text file in he array and after that it should give me some reports like this

third field count
usa 3
uk 2
kuwait 2
dubai 1
it should store the third field in to the array and give me the count how many times any name appeared.the third field can be alphanumeric.
please can any body tell me how to do this using array.

Regards,
Shary

sumeet · #2 (**permalink**) 02-09-2007

try this:

even I have been looking for a awk script for that its something like
group by columns and then the count.

I have awk to do group by and the sum:

awk -F, '{sum[$1,$2,$3]+=$4} END {for (i in sum) print i, sum[i]}' data.

Thanks
SUmeet

shary · #3 (**permalink**) 02-09-2007

Dear Summit,

thank you so much for replying me i really appreciate you
but please can you expalin me this
{sum[$1,$2,$3]+=$4}
what does this mean in array coz my array concept is weak and the other thing i want to store only 3rd field but in your case it seems to be stored 1,2,3 fileds right .
the data might be 1000 line in my text file so please can you brief it out your command
awk -F, '{sum[$1,$2,$3]+=$4} END {for (i in sum) print i, sum[i]}' data.

Regards,
Shary

Perderabo · #4 (**permalink**) 02-09-2007

A perl solution:

Code:

$ cat data
1|usa|hh
2|usa|ll
3|usa|vg
4|uk|nn
5|uk|bb
6|kuwait|mm
6|kuwait|jkj
7|dubai|hh
$
$
$ cat mm.pl
#! /usr/local/bin/perl

open(DATA, "< data") || die "Unable to open file other\n";
while (<DATA>) {
        chomp;
        @fields = split(/\|/);
        $counts{$fields[1]}++;
}
close(DATA);

foreach $word (sort keys %counts) {
        print "value = ", $word, "  count = ",  $counts{$word}, "\n";
}
exit 0
$
$
$
$ ./mm.pl
value = dubai  count = 1
value = kuwait  count = 2
value = uk  count = 2
value = usa  count = 3
$

shary · #5 (**permalink**) 02-09-2007

Dear Experts,

i dont want the script in perl.
so please if its possible try to do other than perl using arrays(not perl).

Regards,

Shary

tayyabq8 · #6 (**permalink**) 02-10-2007

As per your sample output, you need count of second field not the third one, try this:

Code:

awk -F"|" '{ freq[$2]++ } END {
for (word in freq)
printf "%s\t%d\n", word, freq[word]
}' data

shary · #7 (**permalink**) 02-10-2007

dear experts,
thank uou so much it really works.

take care bye
shary

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
Array problem	ajgwin	Shell Programming and Scripting	0	05-27-2008 09:36 AM
problem with array=($(find ....)	jul	Shell Programming and Scripting	1	02-27-2008 04:28 PM
problem with the blank spaces in array	kamicasse	UNIX for Dummies Questions & Answers	4	12-06-2007 02:40 PM
Point and Array Convert Problem	zhshqzyc	High Level Programming	0	02-25-2006 09:28 PM
char array problem	DebianJ	High Level Programming	4	06-25-2005 10:41 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: