?? store.cgi
字號:
#!/usr/bin/perl -wuse strict;use CGI;my $q = new CGI;my $cart_id = $q->cookie( -name => "cart_id" ) || set_cookie( $q );# Script continues for users with cookies# .# .sub set_cookie { my $q = shift; my $server = $q->server_name; my $cart_id = unique_id(); my $cookie = $q->cookie( -name => "cart_id", -value => $cart_id, -path => "/cgi/store" ); print "Location: http://$server/cgi/store/cookie_test.cgi\n", "Set-Cookie: $cookie\n\n"; exit;}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -