store.cgi
来自「嵌入式WEB」· CGI 代码 · 共 25 行
CGI
25 行
#!/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 + =
减小字号Ctrl + -
显示快捷键?