在CGI中使用cookie的简单方法
添加时间: 2006-2-18 2:26:37 作者: CGI教程 阅读次数:43 来源: http://www.d9soft.com
sub cookie{
if($ENV{'HTTP_COOKIE'}) {
@cookies = split(/; /,$ENV{'HTTP_COOKIE'});
foreach(@cookies) {
($name,$value) = split(/=/,$_);
$COOKIE{$name} = $value;
}
}
print "Set-Cookie: $cook=$ENV{'REMOTE_ADDR'}$FORM{'number'};rn";
}
#########################
sub read_cookie{
if($ENV{'HTTP_COOKIE'}) {
@cookies = split(/; /,$ENV{'HTTP_COOKIE'});
foreach(@cookies) {
($name,$value) = split(/=/,$_);
$COOKIE{$name} = $value;
}
}
}
#######
调用时
&read_cookie;
$username=$COOKIE{'UN'};
$email=$COOKIE{'UM'};
.
.
######
生成时
print "Set-Cookie: UN=$username; expires=Sunday, 12-Dec-2002 12:12:12 GMT;rn";
print "Set-Cookie: UM=$email; expires=Sunday, 12-Dec-2002 12:12:12 GMT;rn";
print "Set-Cookie: UH=$homeurl; expires=Sunday, 12-Dec-2002 12:12:12 GMT;rn";
print "Set-Cookie: UP=$pass; expires=Sunday, 12-Dec-2002 12:12:12 GMT;rn";
上下文章:
上一篇文章: Perl CGI中的系统进程管理代码 下一篇文章: 文件加锁方法——通用锁函数