Сесии

[Maximka]

$session = new CGI::Session::File($sid, { Directory => "/tmp" });

$sid = $session->id;


print "$sid";



Вот предположим сессия создана, но вопрос как ее эту же сессию прочесть следующим скриптом, а то постоянно создается новая сессия

[commander]

perldoc CGI::Session::File
--------------------------------------------------------------------------------------------
my $sid = param(\'sid\') || cookie(\'sid\') || undef;
my $session = new CGI::Session::File($sid, { Directory => "/tmp" });
unless (defined $sid)
{
$sid = $session->id;
}
my $var="bla-bla-bla";
$session->param("var", $var);
my $var1= $session->param("var");
print $var1;
--------------------------------------------------------------------------------------------

[Maximka]

Спасибо за ответ. но...



создали сессию.
А если иф срабатывает то я уже не вижу var1...

if ($take) {

my $var1= $session->param("var");
print $var1;

print "test";

exit;



}


my $session = new CGI::Session::File($sid, { Directory => "/tmp" });
unless (defined $sid)
{
$sid = $session->id;
}
my $var="bla-bla-bla";
$session->param("var", $var);

[AnnA]

ух, пришлось мне поразбираться с этим зверем в своё время.
приветик.
$q=new CGI;
$sid = $q->param(\'CGISESSID\')||undef;

if ($sid) {$session=new CGI::Session(undef, $q, {Directory=>\'./data/tmp\'});
$sid = $session->id();
$last_access  = $session->atime();
$first_created= $session->ctime();
#восстанавливаем параметры
$var=$session->param(\'var\');
print header(), start_html(),  h4("\\$sid = $sid
var = $var
$last_access
$first_created"), end_html(); 
 } #EO if ($sid)
 else { $session=new CGI::Session("driver:File", undef, {Directory=>\'./data/tmp\'});

$q->param(-name=>\'var\', -value=>\'some text\');
$session->expire("+1h");
$session->save_param($q);
$sid = $session->id();
print header(), start_html(), a({href=>"$ENV{\'SCRIPT_NAME\'}?CGISESSID=$sid",target=>"_self"},$sid),end_html();
      }

[commander]

Maximka
не очень понял вопроса...

AnnA
Весьма странный ответ на ворпос...

[AnnA]

commander
неудивительно. исходя из того, что

commander:
не очень понял вопроса...

Maximka:
но вопрос как ее эту же сессию прочесть следующим скриптом

commander не видите ответа на этот вопрос в примере кода?

Maximka:
то я уже не вижу var1

commander
Вы удивитесь, но пример восстановления параметров в коде тоже есть.

[commander]

AnnA
Искренне улыбался читая ваш пост...
я тоже могу привести код в котором будет 2000 строк и  восстановления параметров в коде тоже будет...
а не очень понял я вот этот вопрос:

создали сессию.
А если иф срабатывает то я уже не вижу var1...

[AnnA]

commander
2000 строк действительно было бы странным. хотя, как знать.
в любом случае - вот как всё хорошо получилось: И Maximka
доволен (судя по тишине), и commander искренне заулыбался.

commander:
Весьма странный ответ на ворпос

и? чем же он вообще "странный", уж не говоря о "весьма"?

[Maximka]

Спасибо ВСЕМ... и давайте жить дружно