Shell Programming and Scripting

cat file | while read line
do
_string="$line"
change_start=25;
no=2;
change_end=$((change_start + no - 1))
str1=`echo ${_string} | cut -c1-$((change_start - 1))`
str2=`echo ${_string} | cut -c${change_start}-${change_end} | tr "[a-z]" "[A-Z]"`
str3=`echo ${_string} | cut -c$((change_end + 1))-`
echo "$str1$str2$str3"
done

I know this is not the way....if u try this logic with 400 million rows then it'd take years to complete...but anyway I felt like postin it

Code:

perl -pe 'substr($_,30,2) = uc(substr($_,30,2))' file

or

Code:

perl -pe 's/^(.{30})(.{2})(.*)/\1\U\2\E\3/' file

Some new sed variants have \u as well, though I don't know if they have \e too.

I am looking @ gf which has to get converted to uppercase
there are 4 spaces after 10001da, 2 spaces after LHR and BAH.
then gf would come to 30th position

"10001da 20080925LHR BAH gf 0006V 20080818001SSA9122278L4NB 20250510 LHR"

Then your command should looks like:

Code:

awk '{print substr($0,1,29)toupper(substr($0,30,2))substr($0,32)}' /tmp/test.dat > /tmp/abc.dat

Regards

Use code tags to preserve spaces in samples. If you know the correct offsets, just change the scripts. If you don't know the exact offset, maybe you can change the script to only print the part you think is the correct offset, and see if it's right, or off by a few characters.

just did this

awk '{print toupper(substr($0,30,2))}' /tmp/test.dat

o/p was just

gf

toupper doesnt seem to work. I am on Solaris 10 does this have any impact ?

Hi All

I think i found the problem, the other varient of awk worked fine for me.

nawk '{print toupper(substr($0,30,2))}' /tmp/test.dat

o/p == GF

Thanks a lot for all the help.
Regards
Santosh S