Linux+Apache+Mysql+Perldtone.blog.chinaunix.net
hao3721
全部博文(11)
2011年(1)
2010年(2)
2009年(8)
liuyouli
分类:
2009-10-29 15:51:06
#!/usr/bin/perl use CGI qw/:standard/; use CGI::Cookie; # Create new cookies and send them my $cookie1 = new CGI::Cookie(-name=>'ID',-value=>123456); print header(-cookie=>$cookie1,-charset=>"gb2312"); print start_html(); my %cookies = fetch CGI::Cookie; my $id = $cookies{'ID'}->value; print h1($id); print end_html();
上一篇:perl源码 将简单留言板的代码重新整理一下,期待高手提拔。
下一篇:推荐一个perl/CGI的编辑工具
登录 注册