Shell Programming and Scripting

1	a b	x y	hhghd ghgf
2	v t	f g	gdgdgdg hghg

Lookup2

a	10
b	20
v	30
t	40

Lookup3

x	50
y	60
f	70
g	80

Lookup4

hhghd	90
ghgf	100
gdgdgdg	110
hghg	120

1	a b	10 20	x y	50 60	hhghd ghgf	90 100
2	v t	30 40	f g	70 80	gdgdgdg hghg	110 120

 awk -F"\t" '{if (FILENAME != "master.txt" ) { a[$1]=$2;next}}
{split ($2,P," "); split($3,Q," "); split ($4,R," "); print $1"\t"$2"\t"a[P[1]],a[P[2]]"\t"$3"\t"a[Q[1]],a[Q[2]]"\t"$4,a[R[1]],a[R[2]]}' lookup* master.txt

awk -F"\t" '{if (FILENAME != "master.txt" ) { a[$1]=$2;next}}
{n2=split ($2,P," "); n3=split($3,Q," "); n4=split ($4,R," "); printf "\n"$1FS$2FS;
for (i=1;i<=n2;i++) { printf n2==i? a[P[i]]: a[P[i]]" "} printf FS$3FS ; for (j=1;j<=n3;j++) { printf n3==j?a[P[j]]:a[P[j]]" "}  printf FS$4FS ; for (k=1;k<=n4;k++) { printf n4==k?a[P[k]]:a[P[k]]" "}} END {print ""}'  lookup* master.txt

awk '
BEGIN { FS = OFS = "\t"
        fields[++nf] = 2
        fields[++nf] = 3
        fields[++nf] = 4
}
FNR == 1 {
        f++
}
f <= nf {l[f, $1] = $2
        next
}
{       for(i = nf; i > 0; i--) {
                n = split($fields[i], sf, " ")
                af = OFS
                for(j = 1; j <= n; j++)
                        af = af l[i, sf[j]] ((j < n) ? " " : "")
                $fields[i] = $fields[i] af
        }
}
1' Lookup2 Lookup3 Lookup4 file

1	a b	x y	hhghd ghgf
2	v t	f g	gdgdgdg hghg
3	a b v t	f	gdgdgdg

1	a b	10 20	x y	50 60	hhghd ghgf	90 100
2	v t	30 40	f g	70 80	gdgdgdg hghg	110 120
3	a b v t	10 20 30 40	f	70	gdgdgdg	110