ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander E.Kononenko                2:5020/400     20 Sep 2004  11:05:07
 To : All
 Subject : CGI::Session
 -------------------------------------------------------------------------------- 
 

 Создаю сессию:
 my $session = new CGI::Session("driver:File", undef,
 {Directory=>'tmp_session'});
 my $sid = $session->id();
 Открываю её в нужно месте:
 my $session = new CGI::Session("driver:File", $sid,
 {Directory=>'tmp_session'});
 Добавляю туда значения:
 for ($ind=1;$ind<=$n;$ind++){
 $name="id$ind";
 $session->param($name,@id_tovar[$ind]);}
 После этого если сразу вытаскиваю значения:
 my $sh=$session->param_hashref();
 my %hsh=%{$sh};
 foreach (keys(%hsh))  {
    if($_=~/^id/)   {
       print "$_--$hsh{$_}<br>";   }
   };
 Всё гуд. Вывоится как надо.
 Hо если перехожу в другой скрипт. Открываю ту же сессию.
 Добавляю в неё ещё значения - предыдущие теряются.
 Причём теряются только значения ключей. Сами названия ключей остаются.
 В чём может быть проблема?
 Пытался делать $session->save_param($sid); , как написано
 http://search.cpan.org/~sherzodr/CGI-Session-3.95/Session.pm
 Ругается.
 
 ________________________________________________________
 Alexander E.Kononenko aka Neo
 Программист дирекции по проектированию ИнфоЛада
 neo@tlt.ru
 ICQ 97553424
 --- ifmail v.2.15dev5.3
  * Origin: Ladem News Server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: