Perl CGI::Session 使用 CGI::Session::Driver::mysql答案

【问题标题】：Perl CGI::Session using CGI::Session::Driver::mysqlPerl CGI::Session 使用 CGI::Session::Driver::mysql
【发布时间】：2011-11-11 22:27:32
【问题描述】：

我在使用 CGI::Session 在 MySQL 数据库中存储会话时遇到问题。

这是一个sn-p

#!/usr/bin/perl

use CGI;
use CGI::Session;
use CGI::Session::Driver::mysql;
use DBI;
use DBD::mysql;
use Net::LDAPS;

require '../include/include.pl';

$LDAP_SERVER = 'my.test.ldap.example.com';
$LDAP_SSL_PORT = '636';
$LDAP_BASE = 'ou=users,dc=example,dc=com';

$ldap = Net::LDAPS->new($LDAP_SERVER, port=> $LDAP_SSL_PORT)
    or die "Unable to create LDAP object because: $! \n";

$dbh = DBI->connect("DBI:mysql:host=$db_host;database=$db_name",$db_user,$db_pswd)
    or die "Unable to connect to database: \"$DBI::errstr\" $! \n";

$q = CGI->new;

$usr = $q->param('usr') || undef;
$userDN = "uid=$usr,$LDAP_BASE";

if($usr) {
    $pwd = $q->param('pwd');
    $ldapMsg = $ldap->bind($userDN, password=>$pwd);
    $result = $ldap->code;

    if ($result == 0) {
        $session = CGI::Session->new('driver:mysql', undef, 
                     {  TableName=>'car_sessions',
                        IdColName=>'id',
                        DataColName=>'a_session',
                        Handle=>$dbh})
            or die "Unable to create session because: $!";

        $session->expire('+1h');
        $session->param(-name=>'car_login', -value=>$usr);
        $sess_cookie = $q->cookie(-name=>'CGISESSID', -value=>$session->id, -expires=>'+1h', -path=>'/hr_car/');
        $login_cookie = $q->cookie(-name=>'car_login', -value=>$usr, -expires=>'+1h', -path=>'/hr_car/');
        print $q->header(-cookie=>[$sess_cookie, $login_cookie], -location=>'manage.cgi');
    }

LDAP 绑定正确，cookie 设置正确，但我的会话表中没有显示任何内容！

我做错了什么？？

【问题讨论】：

好的！ $session->flush();

标签： perl session cgi

【解决方案1】：

我认为问题出在auto-flushing being unreliable。在自动刷新发生之前 DBI 句柄超出范围存在一个明显的问题，因此在完成会话设置并删除它之后调用 $session->flush。

您可以通过使用file-scoped lexicals 而不是$dbh 和朋友的全局变量来缓解这个问题，Perl 可能能够以正确的顺序清理它们，这只是一个好主意。

PS 打开严格和警告并声明所有这些变量。您的问题很可能是由拼写错误引起的，而您永远不会知道。

【讨论】：