Shell Programming and Scripting

Hi All,

I get a flat file everyday with some records being invalid.Some records come with less number '|'.I just want to add the missing '|'s ,So the it doesnt give an error insufficient fields while loading...There area total of 32 pipes in each record.

Input:
ASADASD |Y|B|SDFGDSDFD| | |0|-2000|N|N|Y|Y| |P|111 |000 |N|N|N|N|N|N|N|ADJS|N |M| |N|N|N|A|Y|RC
ADASDAS|N|E|FSGDFGDFFS| | |0|0|Y|Y|N|N|N|P|111 |0000 |
DSASA|N|E|SDGFDGD| | |0|0|Y|Y|N|N|N|P|1111 |000 |
DASAS |Y|E|DFGDF| | |0|0|N|-|N|N| |P|111 |000 |N|N|N|N|N|N|N|ADJS|N |O| |N| |N|A|N|RC

Output :

ASADASD |Y|B|SDFGDSDFD| | |0|-2000|N|N|Y|Y| |P|111 |000 |N|N|N|N|N|N|N|ADJS|N |M| |N|N|N|A|Y|RC
ADASDAS|N|E|FSGDFGDFFS| | |0|0|Y|Y|N|N|N|P|111 |0000 |||||||| || ||||||
DSASA|N|E|SDGFDGD| | |0|0|Y|Y|N|N|N|P|1111 |000 |||||||| || ||||||
DASAS |Y|E|DFGDF| | |0|0|N|-|N|N| |P|111 |000 |N|N|N|N|N|N|N|ADJS|N |O| |N| |N|A|N|RC

Your help here is really appreciated..

regards,
Kumar

With GNU Awk:

Code:

awk 'NF<33{NF=33}1' OFS="|" FS="|" inputfile

With nawk:

Code:

nawk 'NF<33{NF=33;$1=$1}1' OFS="|" FS="|" inputfile

Code:

perl -aF"\|"  -lne ' print $_ . "|" x ( 31 - $#F ) ; ' file

Thanks a lot Anbu and radoulov...