- 论坛徽章:
- 0
|
对于superdoctor写的Perl CGI Session,要求加精 这篇文章里的事例进行测试,我发现如下特点:1.pl程序我做修改如下:
代码:
#!/usr/bin/perl
use strict;
use CGI;
use CGI::Session;
my($cgi,$session,$cookie);
$cgi=new CGI;
$session=new CGI::Session("driver:File",$cgi,{Directory=>;'/tmp'});
$cookie=$cgi->;cookie(CGISESSID =>; $session->;id());
print $cgi->;header(-coockie=>;$cookie);
print $cgi;
之后我用perl builder执行两遍,发现CGISESSID为两个不同的值,如下:
Coockie: CGISESSID=1d6c32be3c790c109d4217c8c55ba86e; path=/
Content-Type: text/html; charset=ISO-8859-1
CGI=HASH(0x1624fec)
和
Coockie: CGISESSID=baa30cdb6819a2aa885189d5f9c76971; path=/
Content-Type: text/html; charset=ISO-8859-1
CGI=HASH(0x1624fec)
我用同一个变量产生了两个不同的session_id值,由此我在想2.pl里生成的session的session_id和cookie返回的session_id不一致,那2.pl又怎样能
取到第一次生成session里的值呢?
兄弟才学perl,请各位大虾给兄弟讲解一下!
鞠躬! |
|