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/hbody
#!/usr/bin/perl use strict; use warnings; use HTML::Parser (); my $doc = <<'EOT'; <!-- This is not where <BODY> starts --> <title>foo</title> <script language="Perl" description="Print out <BODY>"> open(BODY, "body.txt"); while (<BODY>) { print; } </script> <!-- The next thing will be <BODY> the body --> <Body> Howdy! </body> EOT my $body_offset; HTML::Parser->new( start_h => [ sub { return unless shift eq "body"; $body_offset = shift; shift->eof; # tell the parser to stop }, "tagname,offset,self" ] )->parse($doc); die "No <body> found" unless defined $body_offset; my $head = substr($doc, 0, $body_offset, ""); print $doc;
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply