| Server IP : 77.68.64.21 / Your IP : 216.73.217.59 Web Server : Apache System : Linux hp3-wp-1011352.hostingp3.local 3.10.0-1160.144.1.el7.tuxcare.els9.x86_64 #1 SMP Fri Jul 10 17:06:31 UTC 2026 x86_64 User : csh2516497 ( 2094697) PHP Version : 8.3.30 Disable Function : shell_exec,exec,system,popen,set_time_limit MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-HTML-Parser-3.71/eg/ |
Upload File : |
#!/usr/bin/perl -w
use HTML::Parser ();
use Data::Dump ();
sub h {
my($event, $line, $column, $text, $tagname, $attr) = @_;
my @d = (uc(substr($event,0,1)) . " L$line C$column");
substr($text, 40) = "..." if length($text) > 40;
push(@d, $text);
push(@d, $tagname) if defined $tagname;
push(@d, $attr) if $attr;
print Data::Dump::dump(@d), "\n";
}
my $p = HTML::Parser->new(api_version => 3);
$p->handler(default => \&h, "event, line, column, text, tagname, attr");
$p->parse_file(@ARGV ? shift : *STDIN);