Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Small HTML parser

by perlmonkey (Hermit)
on Aug 08, 2000 at 06:35 UTC ( #26723=note: print w/replies, xml ) Need Help??

in reply to Small HTML parser

There has got to be a better way to do it, but this is a slow hack that will work:
my $list = join('|', @allowed_tags); $dirty_html =~ s!<\s*/?\s*(\w+).*?>!($a,$b)=($&,$1); $a if $b =~ /^(?: +$list)$/!esg;