CGI::Sessionを使ってみる

                             <p>CGIでセッション管理を行うのは少々面倒くさいので、CGI::Sessionモジュールを使ってやる。<br />

セッションを読み込むのは、CGIオブジェクトをCGI::Sessionに渡してやるだけ。

1
2


my $cgi  = CGI->new;
my $session = CGI::Session->new("dr:MySQL", $cgi, {Handle => $dbh});

 1
 2
 3
 4
 5
 6
 7
 8
 9
10


$cgi->append(
    -name => 'new_cookie',
    -value => [
        $cgi->cookie(
                -name  => $session->name,
                -value => $session->id,
                -expires => '+28d',
        ),
    ],
);

1
2
3


print $cgi->header(
    -cookie           => [$cgi->param("new_cookie")],
);

1

use CGI::Session qw(-ip_match);