@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phpmyadmin-ubuntu-m-2vcpu-16gb-blr1-01 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
Current Path :
/
usr
/
share
/
doc
/
libhtml-parser-perl
/
examples
/
Path :
Upload File :
New :
File
Dir
//usr/share/doc/libhtml-parser-perl/examples/hdump
#!/usr/bin/perl -w # This script will output event information as it parses the HTML document. # This gives the user a "Parser's eye view" of an HTML document. 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);