Shell Programming and Scripting

#!/usr/bin/perl
$c=q#awk '$2{print $2}' # . $ARGV[0];
chomp(@x=`$c`);
open I, "$ARGV[0]";
while (<I>){
  @F=split / /;
  for $s (@x){
    @t=$F[0]=~/$s/g;
    $i{$s}+=$#t+1;
  }
}
for $s (@x){
  print "$s $i{$s}\n";
}

#!/usr/bin/perl

@a = <>;
%h;

$i=0;

while ($i < $#a + 1)
{
    my($x, $y) = split(/ /, $a[$i]);

    chomp($x);
    chomp($y);

    #   Keep just the first column ($x) in $a.

    $a[$i] = $x;

    if ($y ne '') { $h{$y} = 0; }

    $i++;
}

foreach $key (keys (%h))
{
    my @g = grep(/$key/, @a);

    $h{$key} = ($#g + 1);
}

foreach $key (keys (%h))
{
    print "$key $h{$key}\n";
}

cat YOUR_FILE_NAME | ./script.pl

#!/bin/ksh
cut -d' ' -f1 b > b1
cut -d' ' -f2 b > b2
while read mStr; do
  mTot=$(egrep -c ${mStr} b1)
  echo "Found ${mTot} for ${mStr}"
done < b2