?? 404.fcgi
字號:
#!/usr/bin/perl#use CGI qw/:standard/;use CGI::Fast qw(:standard);my $cgi = new CGI;while (new CGI::Fast) { my $request_uri = $ENV{'REQUEST_URI'}; print (STDERR "REQUEST_URI: $request_uri\n"); if ($request_uri =~ m/^\/dynamic\/200\// ) { print header ( -status => 200, -type => 'text/plain' ); print ("found here\n"); } elsif ($request_uri =~ m|^/dynamic/302/| ) { print header( -status=>302, -location => 'http://www.example.org/'); } elsif ($request_uri =~ m/^\/dynamic\/404\// ) { print header ( -status => 404 -type => 'text/plain' ); print ("Not found here\n"); } else { print header ( -status => 500, -type => 'text/plain'); print ("huh\n"); };};?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -