ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-libwww-perl/examples
/
usr
share
doc
perl-libwww-perl
examples
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
handler-order.pl
425 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-libwww-perl/examples/handler-order.pl
#!/usr/bin/perl use strict; use warnings; use feature qw( say ); use LWP::UserAgent; my $ua = LWP::UserAgent->new; my @phases = ( 'request_preprepare', 'request_prepare', 'request_send', 'response_header', 'response_data', 'response_done', 'response_redirect', ); for my $phase (@phases) { $ua->add_handler($phase => sub { say "$phase"; return undef; }); } $ua->get('http://example.com');
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply