replace multiple tokens

[Moon, John]

I have the follows code
perl -e '
@a=(q{a...x name=taga_1 #...d name=tagb_1 f...r name=tagc_1 xxnn},
q{h...e name=taga_4 t...g name=tagb_4 k name=tagc_4 nn});
$ndx = 0;
foreach $ln (@a) { 
        print "b4 = $ln\n";
        $ln =~s/(name=.*)\d+/\1$ndx/g;
        print "af = $ln\n";
        $ndx++
        }'
Which produces: 
b4 = a...x name=taga_1 #...d name=tagb_1 f...r name=tagc_1 xxnn
af = a...x name=taga_1 #...d name=tagb_1 f...r name=tagc_0 xxnn
b4 = h...e name=taga_4 t...g name=tagb_4 k name=tagc_4 nn
af = h...e name=taga_4 t...g name=tagb_4 k name=tagc_1 nn

I would like to produce:

b4 = a...x name=taga_1 #...d name=tagb_1 f...r name=tagc_1 xxnn
af = a...x name=taga_0 #...d name=tagb_0 f...r name=tagc_0 xxnn
b4 = h...e name=taga_4 t...g name=tagb_4 k name=tagc_4 nn
af = h...e name=taga_1 t...g name=tagb_1 k name=tagc_1 nn

Any help will be greatly appreciated.
jwm

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>