topic Re: Need perl script in Operating System - HP-UX

Need perl script

Swetha reddy — Mon, 08 May 2006 06:31:45 GMT

data file looks like this:

key|value
10|03
11|23
10|23
11|32

need perl script with following output:

Number of unique keys: = 2

Total count of key 10 = 2 ( number of items)
Total count of key 11 = 2 (Number of items).

Re: Need perl script

H.Merijn Brand (procura — Mon, 08 May 2006 06:38:41 GMT

# perl -nle'm{^\s*(\d+)\s*\|} and $k{$1}++}END{print"Number of unique keys:",scalar keys%k;$k{$_}>1&&print"Total count of key$_ = ",$k{$_}"for keys%k' logfile

Enjoy, Have FUN! H.Merijn

Re: Need perl script

James R. Ferguson — Mon, 08 May 2006 06:47:50 GMT

Hi:

Use hashes like this:

# cat .hashit
#!/usr/bin/perl
while (<>) {
chomp;
@a = split /\|/;
$thing{$a [0]}++;
}
foreach $key (keys %thing) {
print "$key count = $thing{$key}\n";
}

...Run as ./hashit filename

Regards!

...JRF...