in reply to encode HTML entities with a regexp

Try this 

use strict;
my $input='
This is sample <This is sample text>
This is sample &lt;This is  sample text <a>this is sample text</a> sam
+ple text >
';

my @arr=$input=~m#&lt;[^<>]+(?:<a>.+?</a>[^<>]*)?>#g;
local $"="\n";
print "\n@arr";

[download]

Output 

&lt;This is sample text>
&lt;This is  sample text <a>this is sample text</a> sample text >

[download]

Replies are listed 'Best First'.
Re^2: encode HTML entities with a regexp
by Ido (Hermit) on May 12, 2005 at 16:40 UTC
    I believe this might be a little buggy, unless I misunderstand the requirement. But take a look at:
    use strict;
my $input='
This is sample &lt;This is sample text>
This is sample &lt;Th<a> </a>is is  sa<not a>mple text <a>this is samp
+le text</a> sample text >';

my @arr=$input=~m#&lt;[^<>]+(?:<a>.+?</a>[^<>]*)?>#g;
print join "\n",@arr;

    [download]
    I'm wondering about what might be inside <a>..</a>, and whether they should be balanced. In case not, you could simply go for: 
    qr {&lt;(?:[^<>]+|<a>|</a>)*>}

    [download]

    Or perhaps:
    qr {&lt;(?:[^<>]+|<a>|</a>)*[^>]*>}

    [download]
    Otherwise, you might try:
    my $re;
$re=qr{(?:[^<>]+|<a>(??{$re})?</a>)*};
my @arr=$input=~m#&lt;$re>#g;

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom