|
Server : LiteSpeed System : Linux srv104790275 5.15.0-161-generic #171-Ubuntu SMP Sat Oct 11 08:17:01 UTC 2025 x86_64 User : dewac4139 ( 1077) PHP Version : 8.0.30 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, Directory : /usr/share/doc/libhtml-parser-perl/examples/ |
Upload 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