несколько экземпляров Singleton CGI объекта в Perl

Question

я хава CGI страницу index.cgi и один шаблон формы входа в качестве

index.cgi

use Singleton::CGI; 
use Singleton::Session; 

$q = new Singleton::CGI(); 
$session = new Singleton::Session(); 
$template = HTML::Template->new(filename => 'login.tmpl'); 

print $q->header; 
print $q->start_html("hello perl"); 
print $q; # printing hash of CGI Object. 
print $session; 
print $template->output; 
print $q->end_html; 


if($q->param('submit')){ 

print $q->header; 
print $q->start_html("hello user"); 
print $q; # printing hash of CGI Object. 
print $session; 
print $q->param('text'); 
print $q->end_html; 

} 

login.tmpl:

<form action="/" method="post"> 
    <input type="text" name="text"/> 
    <input type="submit" name="submit" value="submit"/> 
    </form> 

вот выход, когда я получаю index.cgi

CGI = HASH (0xbe0510)
SingletonSession = HASH (0x1e67ee60)

наряду с формой

дальше, когда я отправить форму, то CGI = HASH (0xe2ac500) alnog с формой входного значения. SingletonSession = HASH (0x115dc7a0)

согласно моему требованию, я должен получить только один сеанс.

Как я могу поддерживать только один объект запроса и сеанса через приложение?

Answer 1

Ваш веб-сервер выполняет ваш скрипт для каждого запроса, который он получает, поэтому вы просите поделиться переменной в двух процессах, которые даже не работают одновременно. Невозможно. Вот почему используются сеансы, чтобы обеспечить постоянство информации.