Shell Programming and Scripting

Hi,
regarding the reply, the script has been modified to cope with new requirement of checking last servel characters in a column for replacement.

config file:
001,333

port.csv:
1,2,3,4,5,6,7,8,A-B-001,NNN

expected result:
1,2,3,4,5,6,7,8,A-B-333,NNN

new script:
#!/usr/bin/ksh
#input file for process
FILENAME=port.csv
#config file for replacement
CONFIG_TXT=cfg.txt
#output file for result
OUTPUT=port_result.csv

#awk command
nawk 'BEGIN {FS=OFS=","}
NR==FNR{arr[$1]=$2;next}
$0 !~ "Documentation"{print $0;next}
{split($9,a,"-")}
a[3] in arr{$11=arr[a[3]]}1' $CONFIG_TXT $FILENAME > $OUTPUT

==================
thw above script works wel in nawk. However, I later found out that there is no nawk command in a server and awk must be used. No matter how I modified the script using awk.. it won't work..can someone help me? FNR not supported in awk?

Hi all,
how to re-write the code in perl?

Code:

nawk 'BEGIN{FS=","}
{
if(NR==FNR)
	a[$1]=$2
else
{
	if(index($0,"document")!=0)
	{	for (i in a)
		{	
			if(index($0,i)!=0)
				gsub(i,a[i],$0)
			
		}
		print
	}
	else
	{
		print
	}
}
}' b a