D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
usr
/
share
/
doc
/
perl-HTML-Parser
/
eg
/
Filename :
hdump
back
Copy
#!/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);
Name
Size
Last Modified
Owner
Permissions
Actions
hanchors
1.111
KB
October 21 2013 5:44:45
root
0644
hdump
0.528
KB
October 21 2013 5:44:45
root
0644
hform
1.803
KB
October 21 2013 5:44:45
root
0644
hlc
0.534
KB
October 21 2013 5:44:45
root
0644
hrefsub
2.717
KB
October 21 2013 5:44:45
root
0644
hstrip
1.674
KB
October 21 2013 5:44:45
root
0644
htext
0.535
KB
October 21 2013 5:44:45
root
0644
htextsub
0.77
KB
October 21 2013 5:44:45
root
0644
htitle
0.424
KB
October 21 2013 5:44:45
root
0644
2017 © D7net | D704T team