top
Loading...
在CGI中使用cookie的超簡單方法!
超簡單方法!
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"; 
北斗有巢氏 有巢氏北斗