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: htitle
Close
#!/usr/bin/perl # This program will print out the title of an HTML document. use strict; use HTML::Parser (); sub title_handler { my $self = shift; $self->handler(text => sub { print @_ }, "dtext"); $self->handler(end => "eof", "self"); } my $p = HTML::Parser->new(api_version => 3, start_h => [\&title_handler, "self"], report_tags => ['title'], ); $p->parse_file(shift || die) || die $!; print "\n";