Shell Programming and Scripting

#! /opt/third-party/bin/perl

open(FILE, "<", "a2");

while(<FILE>) {
  chomp;
  my @arr = split(/,/);
  $fileHash{$arr[2]}++;
}

close(FILE);

foreach my $k ( keys %fileHash ) {
  my $tmp = $fileHash{$k};
  if( $cnt < $tmp ) {
    $cnt = $tmp;
    $val = $k;
  }
}
print "$val : $cnt\n";

exit 0

#!/usr/bin/env sh

# @(#) s1       Demonstrate determination of maximum string occurrence.

set -o nounset
echo

debug=":"
debug="echo"

## Use local command version for the commands in this demonstration.

echo "(Versions displayed with local utility \"version\")"
version >/dev/null 2>&1 && version bash cut sort uniq sed

echo

FILE=${1-data1}

echo
echo " Input file:"
cat data1

echo
echo " Results from pipeline ( extract, sort, count, isolate ):"

cut -d, -f3 $FILE |
sort |
uniq -c |
sort -nr |
sed -n -e '1s/^ *[0-9][0-9]* *//p;q'

exit 0

% ./s1

(Versions displayed with local utility "version")
GNU bash 2.05b.0
cut (coreutils) 5.2.1
sort (coreutils) 5.2.1
uniq (coreutils) 5.2.1
GNU sed version 4.1.2


 Input file:
value1,value2,bob
value1,value2,bob
value1,value2,bob
value1,value2,dave
value1,value2,james

 Results from pipeline ( extract, sort, count, isolate ):
bob

> cat lis
1,2,bob
1,2,bob
1,2,bob
1,2,jay
1,2,tim

>awk -F\, '{print $NF}' lis|sort -u|xargs -i ksh -c 'echo "{} \c";grep -wc ".*,{}$" lis'|sort -r -k 2,2|head -1|awk '{print $1}'
bob