如何訪問其他文件中的會話變量

# 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.如何訪問其他文件中的會話變量

現在我想訪問一些其他perl文件中的User_id，例如xyz.pl。如何做到這一點？我需要對此腳本進行任何更改嗎？

來源

2012-05-27 Devesh Agrawal

你顯然已經閱讀，因爲你的代碼是由它派生的（http://p3rl.org/CGI::Session#SYNOPSIS）的[從'CGI :: Session'的文檔大綱。大綱中的下一個項目將告訴您如何檢索會話。 – daxim

是的..但它在同一個文件中。其實我試圖訪問其他文件中的變量，但不幸的是，我無法得到它..你可以給我剪輯代碼來實現這一點。 –

我現在意識到你不知道會話是如何工作的。 – daxim

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'

來源

2012-05-28 12:16:32 daxim

如何訪問其他文件中的會話變量

回答

相關問題