📁 File Manager Pro
v10.0.3 | PHP: 7.4.15
Server: Apache/2.4.25 (Debian)
2026-07-02 08:53:54
📂
/ (Root)
/
usr
/
share
/
doc
/
libhtml-parser-perl
/
examples
📍 /usr/share/doc/libhtml-parser-perl/examples
🔄 Refresh
✏️
Editing: hdump
Read Only
#!/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);
💾 Save Changes
❌ Cancel