www.BCZJ.com【编程之家】 www.bczj.com admin 2007-2-20 23:33:49

超简单方法！

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";

责任编辑: 参与评论