RE: replace multiple tokens

Thank you Robin & John for the help Jwm... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: replace multiple tokens

Moon, John wrote: > 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; You should u

Re: replace multiple tokens

"Moon, John" <[EMAIL PROTECTED]> writes: > 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+