ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-CGI/examples
/
usr
share
doc
perl-CGI
examples
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
clickable_image.cgi
1.4 MB
chmod
View
DL
Edit
Rename
Delete
cookie.cgi
2.74 MB
chmod
View
DL
Edit
Rename
Delete
crash.cgi
158 B
chmod
View
DL
Edit
Rename
Delete
file_upload.cgi
2.39 MB
chmod
View
DL
Edit
Rename
Delete
mojo_proxy.pl
805 B
chmod
View
DL
Edit
Rename
Delete
wikipedia_example.cgi
922 B
chmod
View
DL
Edit
Rename
Delete
wilogo.gif
458 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-CGI/examples/mojo_proxy.pl
#!/usr/bin/env perl use Mojolicious::Lite; use Mojolicious::Plugin::CGI; my %cgi_scripts = ( '/clickable_image' => "clickable_image.cgi", '/cookie' => "cookie.cgi", '/crash' => "crash.cgi", '/file_upload' => "file_upload.cgi", '/wikipedia_ex' => "wikipedia_example.cgi", ); foreach my $route ( sort keys( %cgi_scripts ) ) { plugin CGI => [ $route => $cgi_scripts{$route} ]; } any '/' => sub { my ( $c ) = @_; $c->stash( { cgi_scripts => { %cgi_scripts } } ); $c->render( 'index' ); }; app->start; __DATA__ @@ index.html.ep <!doctype html><html> <head><title>CGI Examples</title></head> <body> <h3>CGI Examples</h3> % for my $route ( sort keys( %{ $cgi_scripts } ) ) { <a href="<%= $route %>"><%= $cgi_scripts->{$route} %></a><br /> % } </body> </html>
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply