X7ROOT File Manager
Current Path:
/usr/share/doc/perl-HTML-Parser-3.71/eg
usr
/
share
/
doc
/
perl-HTML-Parser-3.71
/
eg
/
📁
..
📄
hanchors
(1.11 KB)
📄
hdump
(541 B)
📄
hform
(1.8 KB)
📄
hlc
(547 B)
📄
hrefsub
(2.72 KB)
📄
hstrip
(1.67 KB)
📄
htext
(548 B)
📄
htextsub
(788 B)
📄
htitle
(434 B)
Editing: hdump
#!/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);
Upload File
Create Folder