求助：关于cookie的一个奇怪问题（在线等）

jiaozhao

为什么通过：print header(-cookie=>;[$mycookie])时，并不能写入？而print header(-cookie=>;[$cookieSSO,$cookieSSO1]);$cookieSS0未能写入，但是$cookieSSO1却能写入？为什么？多谢。


my $cookieSSO=cookie( -name =>; 'code',
                      -value =>; "$code",
                    #  -domain =>;'CSTNET.CN',
        -path =>;'/',);
my $cookieSSO1=cookie( -name =>; 'code1',
                      -value =>; "$code",
                    #      -domain =>;'CSTNET.CN',
        -path =>;'/',);
  
        $url="testSSO.cgi?code=$code";
print header(-cookie=>;[$cookieSSO,$cookieSSO1]);
print redirect("$url?code=$code";
print "code from cookie is: ".cookie('code')."
;";
print "code from cookie1 is:".cookie('code1')."
;";

apile

http://search.cpan.org/~lds/CGI.pm-3.11/CGI.pm#HTTP_COOKIES

        $cookie1 = cookie(-name=>;'riddle_name',
                                  -value=>;"The Sphynx's Question");
        $cookie2 = cookie(-name=>;'answers',
                                  -value=>;\%answers);
        print header(-cookie=>;[$cookie1,$cookie2]);

先试着照上面url的作法去写..然後找一下怎麽把他解出来的...照着做..
再改....

jiaozhao

多谢，指点。但问题似乎没有解决？
#!/usr/bin/perl

use CGI qw(:standard);#CGI:Cookie;
use common;
use CGI::Carp qw(fatalsToBrowser);

my $code=time();
my $cookieSSO=cookie( -name=>;'code',
                                                                -value=>;$code                  
                                                );
my $cookieSSO1=cookie( -name=>;'code1',
                                                                -value=>;$code                  
                                                );
$url="testSSO.cgi?code=$code";
print header(-type=>;"text/html", -charset=>;"gb2312",-location=>;$url,-cookie=>;[$cookieSSO,$cookieSSO1]);

其中在testSSO.cgi页面中：只有
#!/usr/bin/perl  -w

# user login

#use strict;
use DBI;
use CGI qw(:standard :netscape *table);

print "Content-type: text/html\n\n";
print "code from cookie is: ".cookie('code')."
;";
print  "ZZZZZZZZZZusername is: ".cookie('code1')."\n";

运行结果为：code from cookie is:
ZZZZZZZZZZusername is: 1130136611
要是改为：print header(-type=>;"text/html", -charset=>;"gb2312",-location=>;$url,-cookie=>;[$cookieSSO1,$cookieSSO]);的话，就是：第一个cookie值可以得到，但得不到第二个？为什么呢？

apile

我run你的code...得到的结果很正确呀...
code from cookie is: 1130144540
;
ZZZZZZZZZZusername is: 1130144540

不过我把上面use common;拿掉了...
我的环境AIX 4.3.3 .. perl 5.8.5...apache 1.3.28

检查看看是不是你的 code还有那边有问题？或你的browser安全性设定太高了..
#ls
testSSO.cgi    testcookie.pl

more testSSO.cgi
#!/usr/bin/perl  -w

# user login

#use strict;
use DBI;
use CGI qw(:standard :netscape *table);

print "Content-type: text/html\n\n";
print "code from cookie is: ".cookie('code')."
;";
print  "ZZZZZZZZZZusername is: ".cookie('code1')."\n";

# more testcookie.pl
#!/usr/bin/perl
use CGI qw(:standard);#CGI:Cookie;
use CGI::Carp qw(fatalsToBrowser);

my $code=time();
my $cookieSSO=cookie( -name=>;'code',
   -value=>;$code
);
my $cookieSSO1=cookie( -name=>;'code1',
  -value=>;$code
);

$url="testSSO.cgi?code=$code";
print header(-type=>;"text/html", -charset=>;"gb2312",-location=>;$url,-cookie=>;[$cookieSSO,$cookieSSO1]);

jiaozhao

多谢了,
我只能郁闷的继续看看有啥问题了.

jiaozhao

太郁闷了,把my $cookieSSO=cookie( -name=>;'code',
-value=>;$code                  
);
my $cookieSSO1=cookie( -name=>;'code1',
-value=>;$code                  
);
改成:
my $cookieSSO=cookie( -name=>;'first',
-value=>;$code                  
);
my $cookieSSO1=cookie( -name=>;'second',
-value=>;$code                  
);
就可以了,真是ft死了