perl - 他のファイルのセッション変数にアクセスする方法

Question

# Object initialization:
use CGI::Session;

$session = CGI::Session->new();

$CGISESSID = $session->id();

# Send proper HTTP header with cookies:

print $session->header();

# Storing data in the session:

$session->param('User_id', 'U00002');

このスクリプトは、abc.plなどのファイルに記述されています。

ここで、xyz.plなどの他のperlファイルのUser_idにアクセスしたいと思います。どうやってするか？このスクリプトに変更を加える必要がありますか？

Answer 1

use CGI::Session qw();
my $s = CGI::Session->new;
$s->param(User_id => 'U00002');
my $id = $s->id; # e.g. '4cd29ac608405e4d0a463d153e64defd'

ID を必要な場所に渡します。

use CGI::Session qw();
my $s = CGI::Session->new($id);
print $s->param('User_id'); # 'U00002'