ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-HTML-Parser/eg
/
usr
share
doc
perl-HTML-Parser
eg
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
hanchors
1.17 MB
chmod
View
DL
Edit
Rename
Delete
hbody
729 B
chmod
View
DL
Edit
Rename
Delete
hdisable
740 B
chmod
View
DL
Edit
Rename
Delete
hdump
708 B
chmod
View
DL
Edit
Rename
Delete
hform
2.44 MB
chmod
View
DL
Edit
Rename
Delete
hlc
717 B
chmod
View
DL
Edit
Rename
Delete
hrefsub
3 MB
chmod
View
DL
Edit
Rename
Delete
hstrip
1.73 MB
chmod
View
DL
Edit
Rename
Delete
htext
612 B
chmod
View
DL
Edit
Rename
Delete
htextsub
936 B
chmod
View
DL
Edit
Rename
Delete
htitle
461 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-HTML-Parser/eg/hdump
#!/usr/bin/perl # 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 strict; use warnings; use HTML::Parser (); use Data::Dumper qw(Dumper); 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 Dumper(@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);
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply