Shell Programming and Scripting

#!/bin/bash
DICT=$2
exec < $1
while read f1
do
nawk -v fld=${f1} '/$1=fld/ { print fld $2}' $DICT
done

 
nawk 'NR==FNR{arr[$1]=$2;next}{for(i in arr)if(i==$1)print $1,arr[i]}' dict lookup

nawk -v fld="${f1}" '$1==fld { print fld" "$2}' $DICT

awk 'NR==FNR{a[$1]=$0;next}{$0=a[$1]}1' dictionary lookup > file3

$
$ cat dictionary
C_BOX LB_BOX
C_CHAIR LB_CHAIR
C_HAT LB_HAT
$
$ cat lookup
C_HAT
C_BOX
C_CHAIR
$
$ perl -ne 'BEGIN {open(F,"dictionary");while(<F>){chomp; split; $x{$_[0]}=$_[1]} close(F)}
>           chomp; printf("%s %s\n",$_,$x{$_})' lookup
C_HAT LB_HAT
C_BOX LB_BOX
C_CHAIR LB_CHAIR
$
$

awk 'NR==FNR {a[$1]=$2;next } {if($1 in a) {b[$1]=$1" "a[$1];c[++n]=$1;next} } END { for(i=1;i<=n;i++) {print b[c[i]]}}' file1 file2