Re: Split tags and words nicely

[themage]

Hi bwgoudey,

I think you may be looking for this:

$a=q{<tag ref=1>Start<tag ref=2>and more</tag>and end</tag>};
@l=split qr{(</?tag[^>]*>)}, $a;
print join "\n", @l;

The main trick is to use () inside the regex used in split to capture the delimiters.

[logie17]

Along the same lines, here's something that is completely regex and no join or split is needed. Probably could be obfuscated even more :)


$a = q{<tag ref=1>Start<tag ref=2>and more</tag>and end</tag>};
my @b;
$a =~ s/(<\/?tag[^>]*>)(\w*)/push @b, ($1,$2)/eg;
map {print $_,"\n"} @b;


Prints the following:


<tag ref=1>
Start
<tag ref=2>
and
</tag>
and
</tag>



Cheers!

[johngg]

You have a slight glitch in that you are losing any text after the space, e.g. "and more" comes out as "and". Fix:

$a =~ s/(<\/?tag[^>]*>)([\w ]*)/push @b, ($1,$2)/eg;

Also it is probably a good idea to avoid $a and $b for variable names because of their special status with regard to sort.

Cheers,

JohnGG

[logie17]

Doh! Nice catch. Good call with $a, $b.

Cheers!