Shell Programming and Scripting

awk     'FNR==NR        {A[$1]=length($1);next}
                        {B[$1]=length($1)}
         END            {print "match"
                         for (b in B) {
                           for (a in A) if (b~"^"a) {print b; delete B[b]; DEL[a]++;break}
                          }
                         for (d in DEL) delete A[d]
                         print "a"
                         for (a in A) print a
                         print "b"
                         for (b in B) print b
                        }
        ' abc bcd
match
1224
120
122
123
12345
1201
1203
a
1245
123456
191
1890
b
121
199

while read x
do
    grep ${x:0:3} bcd >> match
    if [[ ! $(grep ${x:0:3} bcd) ]]; then echo $x >> nomatch; fi
done < abc
sort -u match
echo
sort -u nomatch
echo

while read z
do
    if [[ ! $(grep ${z:0:3} abc) ]]; then echo $z >> noabc; fi
done < bcd
sort -u noabc

# ------------
# 120
# 1201
# 1203
# 122
# 1224
# 123
# 12345
# 
# 1245
# 1890
# 191
# 
# 121
# 199