Shell Programming and Scripting

1212  RICK
9823  JOAN
1221  RICK
1254  JACK
1224  JACK

RICK  YUI
JOAN  JUR
JACK  NOM

RICK  2
JOAN  1
JACK  2

$ cat file1
1212  RICK
9823  JOAN
1221  RICK
1254  JACK
1224  JACK

$ cat file2
RICK  YUI
JOAN  JUR
JACK  NOM

$ awk 'NR==FNR{a[$2]++} NR>FNR{print $1,a[$1]}' file1 file2
RICK 2
JOAN 1
JACK 2

bash-2.05$ cat names.txt
1212  RICK
9823  JOAN
1221  RICK
1254  JACK
1224  JACK
bash-2.05$ awk {'print $2'} names.txt | sort | awk 'BEGIN{cntr=0;prevLine=""}{if(prevLine==""){prevLine=$0};if($0==prevLine){cntr++;}else{printf prevLine;print " " cntr;cntr=1;}prevLine=$0;}END{printf prevLine;print " " cntr}'
JACK 2
JOAN 1
RICK 2
bash-2.05$

awk '{a[$2]++}END{for(i in a) print i,a[i]}' file1

# awk 'NR==FNR{a[$2]++;next}{$0=$0 FS a[$1]}1' file1 file2
RICK  YUI 2
JOAN  JUR 1
JACK  NOM 2

while (<DATA>)  {
    $_ =~ s/^([^\s]*) .*/\1/g;    
    chomp;

    $thash{$_} = 0;
}

while ( <> )  {
    $required = (split /[ \t]/, $_)[1];    
    chomp($required);    

    $thash{$required}++;    
}

foreach ( keys %thash )  {
    print "$_ $thash{$_}\n";
}

__DATA__
RICK YUI
JOAN JUR
JACK NOM

perl file.pl < file1
RICK 2
JACK 2
JOAN 1

# cat file1
1212  RICK
9823  JOAN
1221  RICK
1254  JACK
1224  JACK
# sort -k2 file1 | uniq -c -f1 | awk '{print $3,$1}'
JACK 2
JOAN 1
RICK 2