Perl CGI Session_use cgi::session-CSDN博客

本文通过两个Perl脚本示例，介绍了如何使用CGI::Session模块实现session的创建与读取，展示了通过cookie传递session ID的方法，并讨论了常见错误。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近学习perl 看到这篇将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互相传递来判断的话是无法得到相应信息的