40 lines
740 B
Perl
Executable File
40 lines
740 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use HTML::Parser ();
|
|
use HTML::Entities qw(encode_entities);
|
|
|
|
sub disable_tags_but {
|
|
my ($text, $allowed_tags) = @_;
|
|
|
|
my @text;
|
|
my %allowed_tag = map { $_ => 1 } @{$allowed_tags || []};
|
|
|
|
my $tag_h = sub {
|
|
my ($tag, $text) = @_;
|
|
$text = encode_entities($text, "<") unless $allowed_tag{$tag};
|
|
push(@text, $text);
|
|
};
|
|
|
|
HTML::Parser->new(
|
|
start_h => [$tag_h, 'tagname, text'],
|
|
end_h => [$tag_h, 'tagname, text'],
|
|
default_h => [\@text, '@{text}'],
|
|
)->parse($text)->eof;
|
|
|
|
return join("", @text);
|
|
}
|
|
|
|
#
|
|
# Test it
|
|
#
|
|
print disable_tags_but(<<EOT, [qw(a br)]) unless caller;
|
|
|
|
Test
|
|
<foo> <a href="...">...</a>
|
|
</bar>
|
|
|
|
EOT
|