UNIX for Beginners Questions & Answers

)!@#$%^&*(  <- Characters on shifted numeric keys
0123456789  <- Characters on numeric keys

#!/bin/ksh
while read -r input
do	result=$(printf '%s\n' "$input" | awk '
	BEGIN {	a = "\1\2\3\4\5\6\7\10\11\12\13\14\15\16\17" \
		    "\20\21\22\23\24\25\26\27\30\31\32\33\34\35\36\37" \
		    " !\"#$%&\47()*+,-./0123456789:;<=>?@" \
		    "ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`" \
		    "abcdefghijklmnopqrstuvwxyz{|}~\177"
	}
	{	for(i = 1; i <= length($0); i++)
			if((c = substr($0, i, 1)) ~ /[0-9.]/)
				printf("%s", c)
			else	printf("%d", index(a, c))
		print ""
	}')
	printf 'Processing:%s-->%s\n' "$input" "$result"
done < file

 ! " § $ % & / ( ) = 
 1 2 3 4 5 6 7 8 9 0

if ($f !~ /^\d+$/ )
{
$camount=substr($line,23,8);--this is the vulue like 0002178,0001008,0000886
$vovrpunch=ord("$f");  --- getting the overpunch value but it is sending me wrong
$var3 = $camount.$vovrpunch;
$ltwodgt = substr($var3,-2);
$var3 =~ s/\d{2}$//;
$camnt=$var3.".".$ltwodgt;
$camnt =~ s/^0+//;
#print "$damnt\n";
}

number=`echo $string |sed -e script`

 
s/ /0/g
s/\!/1/g
s/\"/2/g
s/\#/3/g
s/\$/4/g
s/\%/5/g
s/\&/6/g
s/\'/7/g
s/\(/8/g
s/\)/9/g