Shell Programming and Scripting

perl -pe 's/\n//g; s/\x27/\n/; s/^\s+//' infile | perl -F: -lane 'print $F[26] if /^VDI/; print $1 while ( /\+ABC(?::.*?){12}(.+?):/g )' | perl -lpe 's/\s+//g' | perl -lne '/(\d{6})(\d+)(\d{4})$/; print $1, "*" x length $2, $3'

awk -F "" '{j=0; for(i=1;i<7+j;i++)if($i==" ")j++; for(;i<=(NF-4);i++)$i="*"}1' OFS="" infile

BAT:03********************************************************767:
000000*****279'

EXR:CL*********000'

STA:A:**************************Mrs'

DEF::5**************************************************************************************************************833:
0001+A*********************************************************************************************3IA'

VDI:20**************************************************************************************************9.00
:12345*****************************************************.10'

CTR:20*******************************************.00'

GTR:11********************************************************.89'
TRA'

DEF::5**************************************************************************************************************833:
0001+A*************************************************************************************************************3IA'

perl -pe 's/\n//g; s/\x27/\n/; s/^\s+//' infile | perl -F: -lane 'print $F[26] if
/^VDI/; print $1 while ( /\+ABC(?::.*?){12}(.+?):/g )' | perl -lpe 's/\s+//g' | perl -lne '/(\d{6})(\d+)(\d{4})$/; print $1, "*" x length $2, $3'

116278*******9621
116279******9629
123456*********7678

1162 79********9621
116279******9621
1162 79*************1234
116279**********1234

awk -F: '{gsub(/\n/,"")}1' RS="\'" infile2 |
awk -F'\+ABC' '/^ *VDI:/{print$1}NF>1{for (i=2;i<=NF;i++)print $i}' OFS='\n' |
awk -F: '{if ($27)print $27; else if ($12 ~ /^TXE$|^AF$|^XT$|^TT$|^IT$|^TX$|^DX$|^TY$|^DT$|^MO$|^SE$|^CF$|^AXE$|^DF$|^CX$|^TF$|^DE$|^XF$|^CNE$|^IX$|^CN$|^SC$|^XTE$|^AX$|^CX$/) print $13}' |
awk -F "" '{j=0; for(i=1;i<7+j;i++)if($i==" ")j++; for(;i<=(NF-4);i++)$i="*"}1' OFS=""

116278*******9621
1162 79********9621
123456*********7678