OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
doc
/
libhtml-parser-perl
/
examples
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/11/2020 08:10:07 AM
rwxr-xr-x
📄
README
1.06 KB
07/26/2017 08:06:50 PM
rw-r--r--
📄
hanchors
1.14 KB
07/26/2017 08:06:50 PM
rwxr-xr-x
📄
hdump
683 bytes
07/26/2017 08:06:50 PM
rwxr-xr-x
📄
hform
1.87 KB
07/26/2017 08:06:50 PM
rwxr-xr-x
📄
hlc
710 bytes
07/26/2017 08:06:50 PM
rwxr-xr-x
📄
hrefsub
2.72 KB
10/21/2013 05:44:45 AM
rwxr-xr-x
📄
hstrip
1.74 KB
07/26/2017 08:06:50 PM
rwxr-xr-x
📄
htext
575 bytes
07/26/2017 08:06:50 PM
rwxr-xr-x
📄
htextsub
955 bytes
07/26/2017 08:06:50 PM
rwxr-xr-x
📄
htitle
434 bytes
10/21/2013 05:44:45 AM
rwxr-xr-x
Editing: hdump
Close
#!/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);