cookie无法读出

microzhujie0921

UID: 9196
帖子: 178
积分: 409
在线时间: 1 天 19 小时

1^# microzhujie0921 发表于 2008-05-16 23:07

cookie无法读出

#!/Perl/bin/perl
use CGI;

my $q = CGI->new;
print $q->header(-charset=>'shift_jis',-type=>'text/html');
print "<br>";
#print $q->param('m'); #可以获取正常

$cookie1 = $q->cookie(-name=>'zhujie',-value=>'ok',-expires=>'+1h',-secure=>1);
$q->header(-cookie=>$cookie1);
print "<br>";
print $cookie1;

my $cookiess = $q->cookie('zhujie');#获取值

print $cookiess ; #没有空!

请问大家,为什么我已经-name=>'zhujie',-value=>'ok',为什么获取不到呢??

这问题困惑了好久了.望各位告诉我,十分感谢.

刚学PERL4天.还很弱.谢谢大家了.

dajun

UID: 1292
帖子: 150
积分: 345
在线时间: 1 天 7 小时

2^# dajun 发表于 2008-05-17 20:53

我改了一下你看看，不知道为啥非要去掉-secure 才可以

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

use CGI qw/:standard/;
use CGI::Cookie;

my $q = new CGI;
my $cookie = $q->cookie( -name  => 'zhujie',
                     -value => 'ok',
                     -expires => '+1h',
#                      -secure => 1);
);
print $q->header( -type => 'text/html', -cookie => $cookie);
print p('cookie and cgi'), "\n";
my $get = cookie('zhujie');
if (defined $get) {
print "Cookie=[$get]\n";
}

另外，第一次是得不到值的，因为浏览器第一次访问的时候没有cookie，刷新一下就好了

lujx

UID: 19039
帖子: 132
积分: 303
在线时间: 1 天

3^# lujx 发表于 2008-05-17 20:55

用PHP比较好的呢。

microzhujie0921

UID: 9196
帖子: 178
积分: 409
在线时间: 1 天 19 小时

4^# microzhujie0921 发表于 2008-05-19 14:54

谢谢二楼的解答啊,问题解决了,关键在于
use CGI qw/:standard/;
use CGI::Cookie;

这样定义.刚刚学很多还不熟悉.谢谢好心人.