- 论坛徽章:
- 0
|
最近看到很多帖子都是关于Perl CGI Session的使用的,在此算是统一回复罢
正确的代码如下(1.pl)
- #!/usr/bin/perl
- use CGI;
- use CGI::Session;
- my $cgi= new CGI;
- my $session = new CGI::Session("driver:File", $cgi , {Directory=>;'/tmp'});
- my $cookie = $cgi->;cookie(CGISESSID =>; $session->;id );
- print $cgi->;header(-cookie=>;$cookie);
- $session->;param('f_name', 'Sherzod');
- print "<script language='javascript'>;";
- print " location.href='2.pl';";
- print "</script>;";
复制代码
(2.pl)
- #!/usr/bin/perl -w
- use strict;
- use CGI;
- use CGI::Session;
- my $cgi = new CGI;
- my $session = new CGI::Session("driver:File", $cgi ,{Directory=>;'/tmp'});
- my $strName = $session->;param("f_name");
- print $cgi->;header();
- print "-------------------$strName--------------------\n";
复制代码
前面的帖子里面主要的问题是认为CGI::Session是可以独立使用的,其实不然,因为我们知道session的两种传递形式就是get url和cookie,因此在第一个页面创建session的时候必须也要将次session id通过url或者cookie传抵给以后的页面,当以后的页面在执行的时候流览器将自动将同一个域的cookie传到服务器上,然后我们利用new CGI可以得到这个session id,因此就可以通过/tmp文件夹下的session文件取到value了
当然,这个例子仅仅演示了coockie session的使用,但是同样有借鉴意义的
在这几天的帖子里面有一位同志错误将new session里面第二个参数置为undef,其实这相当于又重建了一次session,跟前一个页面建的session完全失去联系,所以最后得到的f_name值是不存在的
归根结底,session其实是一个记录了此次会话的一些特有信息的文件(或者数据库行,当使用不同的session driver时),如果没有将session id互相传递来判断的话是无法得到相应信息的
 |
|