Hi,
Just say I have a file and the content of the file is something like
this.
Xx
Xxx
Xxxx [all sort of description]
*|NET ABC13/ABC13L/AB_281 1.2356e-05PF
*|S [follow by some description]
R1 F12346 F12342 0.001
R2 F12342 F12345 5.001
*|NET ABC3/ABC3L/AB_81 1.756e-05PF
*|S [follow by some description]
R4 F45646 F45642 5.001
R5 F45642 F45645 6.501
R6 F45642 F45645 6.041
R7 F45642 F45645 6.701
*|NET ABC1/ABC1L/AB_21 1.356e-05PF
*|I [follow by some description]
*|S [follow by some description]
R9 F12346 F12342 0.001
R10 F12342 F12345 5.001
*|NET EFG13/EFG13L/EF_21 1.56e-05PF
*|S [follow by some description]
R18 F99946 F99942 4.121
R19 F99942 F99945 6.661
Now, what I want perl to do is to print out in another file with the
following format
ABC13/ABC13L/AB_281 Rtotal 5.002 [which is the third element of R1
{0.001} + third element of R2 {5.001}]
ABC3/ABC3L/AB_81 Rtotal 24.244 [which is the third element of R4 {5.001}
+ third element of R5 {6.501} + third element of R6{6.041} + third
element of R7 {6.701}]
[skp for ABC1/ABC1L/AB_21 net as it has *|I within it]
EFG13/EFG13L/EF_21 Rtotal 10.782 [which is the third element of R18
{4.121} + third element of R19 {6.661}]
Thank you & best regards,
ABC
