Re: [MacPerl] join - appending

[Bart Lateur]

On Wed, 13 Jun 2001 19:07:50 +0200, allan wrote:

>how can i output:
><dcv id=1>append here
><dcv id=2>append here
><dcv id=3>append here
>
>instead of just:
><dcv id=1>append here
><dcv id=2>append here
><dcv id=3>

>$str = "<dcv id=1>some stuff  <dcv id=2> more  <dcv id=3> more stuff ";

$str =~ s/(<dcv[^>]*>)[^<]*/$1append here\n/g;

-- 
        Bart.