Shell Programming and Scripting

# cat infile
Unix|123|17-01-2010
UniX|124|17-01-2010
UnIx|125|17-01-2010
UNix|126|17-01-2010
UNIX|127|17-01-2010
UnIX|128|17-01-2010
unix|129|17-01-2010

# ./justdoit
Abcd|987|01-01-1999
Abcx|986|01-01-1999
Abid|985|01-01-1999
Ancd|984|01-01-1999
Anix|983|01-01-1999
Abix|982|01-01-1999
Ubcd|981|01-01-1999

# cat mask
A=a     a=A     1=9     01-01-1999
B=b     b=B     2=8
C=c     c=C     3=7
D=d     d=D     4=6
E=e     e=E     5=5
F=f     f=F     6=4
G=g     g=G     7=3
H=h     h=H     8=2
I=i     i=c     9=1
K=k     k=K
L=l     l=L
M=m     m=M
N=n     n=b
O=o     o=O
P=p     p=P
R=r     r=R
S=s     s=S
T=t     t=T
U=A     u=U
V=v     v=V
W=w     w=W
X=x     x=d
Y=y     y=Y
Z=z     z=Z

 
## justdoit ##
#!/bin/bash
 x=0
  while IFS="|" read -r name number date
   do
     cntn=$(printf "%s" "$name" | wc -c)
     cntnn=$(printf "%s" "$number" | wc -c)
     val=( "$name" "$number" )
     namenew="";numbernew=""
charstr=$(echo ${val[0]}|fold -w 1)
     for new in ${charstr}
      do
        if [[ $(echo "$new" | grep -o '[[:upper:]]') ]] ; then
            mynew=$(awk '{print $1}' mask | sed -n "/$new/p" | cut -d= -f2)
        else
            mynew=$(awk '{print $2}' mask | sed -n "/$new/p" | cut -d= -f2)
        fi
       namenew=$namenew$mynew
      done
      names[x]=$namenew
charnum=$(echo ${val[1]}|fold -w 1)
     for number in ${charnum}
      do
        mynumber=$(awk '{print $3}' mask | sed -n "s/$number=//p" )
        numbernew=$numbernew$mynumber
      done
      numbers[x]=$numbernew
      ((x++))
datenew=$(awk '{print $4}' mask)
   done<infile
 for ((i=0;i<${#numbers[@]};i++))
   do
    echo "${names[i]}|${numbers[i]}|$datenew"
   done

$
$
$ cat f3.mask
A=z
B=y
C=x
D=w
E=v
F=u
G=t
H=s
I=r
K=q
J=p
L=o
M=n
N=m
O=l
P=k
Q=j
R=i
S=h
T=g
U=f
V=e
W=d
X=c
Y=b
Z=a
a=Z
b=Y
c=X
d=W
e=V
f=U
g=T
h=S
i=R
k=Q
j=P
l=O
m=N
n=M
o=L
p=K
q=J
r=I
s=H
t=G
u=F
v=E
w=D
x=C
y=B
z=A
0=9
1=8
2=7
3=6
4=5
5=4
6=3
7=2
8=1
9=0
$
$ cat f3.data
Unix|123|17-01-2010
UniX|124|17-01-2010
UnIx|125|17-01-2010
UNix|126|17-01-2010
UNIX|127|17-01-2010
UnIX|128|17-01-2010
unix|129|17-01-2010
$
$
$ perl -lne 'if ($ARGV eq "f3.mask") {@x=split/=/; $y{$x[0]}=$x[1]}
             else {@z=split/\|/; $z[2]="01-01-1999"; $z[0]=~s/(.)/$y{$1}/g;
                   $z[1]=~s/(.)/$y{$1}/g; print join("|",@z)}
            ' f3.mask f3.data
fMRC|876|01-01-1999
fMRc|875|01-01-1999
fMrC|874|01-01-1999
fmRC|873|01-01-1999
fmrc|872|01-01-1999
fMrc|871|01-01-1999
FMRC|870|01-01-1999
$
$
$