Shell Programming and Scripting

Hi
I have another question on the same file. I want to copy a field at position 9:15 on the line starting with 6(in red color) and replace it with the field at position 10:14 on line starting with 1(in blue)

1 test 1 765533 7643743
6 yes 3 5363653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
7 323323 4343434435 545
1 test 1 765533 7643743
6 yes 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
6 yes 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
1 test 1 765533 7643743
6 yes 3 5383653 373833
7 323323 4343434435 545
8 4345435435 5454545 55


so the output will be


1 test 1 5363653 7643743
6 yes 3 5363653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
7 323323 4343434435 545
1 test 1 5373653 7643743
6 yes 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
6 yes 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
1 test 1 5383653 7643743
6 yes 3 5383653 373833
7 323323 4343434435 545
8 4345435435 5454545 55

Considering your example (assuming no @ in the data):

(use nawk or /usr/xpg4/bin/awk on Solaris)

Code:

awk '/^1 / { s = $0; next }
s { sub(/........./, "&@", s)         
    sub(/@....../, substr($0, 9, 7), s)
    $0 = s RS $0; s = 0
  }
1' infile

You can rewrite the code with re-interval and gensub if your awk implementation supports them.
If I knew sed, I would have used it in this case .

A sed version:

Code:

sed '/^1 /{
N
s/\(.\{9\}\)\(.\{6\}\)\(.*\n\)\(.\{8\}\)\(.\{7\}\)/\1\5\3\4\5/
}' infile