Shell Programming and Scripting

computer
red
apple
orange

computer
apple
red
blue

2
3
1
3

ls -1 *.dat | while read page
do
  ls -l *.dic | while read page1
    cat $page1 | while read var1
    do
      grep -c $var1 $page > $page.cnt
    done
  done
done

awk 'END { out() }
FNR == 1 {
  NR > 1 && out() 
  fn = FILENAME; split(x, w)
  sub(/.dic$/, x, fn); c = x
  dn = fn ".dat"; on = fn ".cnt"
  }
{  w[$0]; p[++c] = $0 } 
func out() {
  while ((getline dat < dn) > 0)
    dat in w && w[dat]++
  for (i = 0; ++i <= c;)
    printf "%d\n", w[p[i]] > on
  close(on)
  }  
  ' *dic

for DAT in *.dat
do
CNT="`basename $DAT .dat`".cnt
DIC="`basename $DAT .dat`".dic
awk 'NR==FNR{dic[$1]++; next}dic[$1]{cnt[$1]++}END{ for(c in cnt) print cnt[c]; }' $DIC $DAT > $CNT
done

for DAT in *.dat
do
CNT=$(basename "$DAT" .dat).cnt
DIC=$(basename "$DAT" .dat).dic
awk 'NR==FNR{dic[$1]=r++; cnt[r]=0; next}
   $1 in dic{cnt[dic[$1]]++} 
   END{for(i=0;i<r;i++) print cnt[i]}' $DIC $DAT > $CNT 
done

20
32
1
3

for DAT in *.dat
do
for DIC in *.dic
do
while read word
CNT=$(basename "$DAT" .dat).fil
DIC=$(basename "$DAT" .dat).dic
grep -il "$word" | find . | wc -l $DIC $DAT > $FIL
done
done

for DIC in *.dic
do
    FIL=$(basename "$DIC" .dic).fil
    ls *.dat | awk '
       NR==FNR {dic[$1]=r++; cnt[r]=0; next}
       { FILE=$0
         while((getline < FILE))
             if($1 in dic && !($1 in fnd)) {
                 fnd[$1]++;
                 cnt[dic[$1]]++;
             }
         delete fnd
       }
       END {for(i=0;i<r;i++) print cnt[i]}' $DIC - > $FIL
done