?? cookie_test.cgi
字號:
#!/usr/bin/perl -wTuse strict;use CGI;use constant SOURCE_CGI => "/cgi/main.cgi";my $q = new CGI;my $cookie = $q->cookie( -name => "cart_id" );if ( defined $cookie ) { print $q->redirect( SOURCE_CGI );}else { print $q->header( -type => "text/html", -expires => "-1d" ), $q->start_html( "Cookies Disabled" ), $q->h1( "Cookies Disabled" ), $q->p( "Your browser is not accepting cookies. Please upgrade ", "to a newer browser or enable cookies in your preferences and", $q->a( { -href => SOURCE_CGI }, "return to the store" ), "." ), $q->end_html;}
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -