ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Maxim Yemelyanov                     2:5020/400     28 May 2005  19:21:24
 To : Nick Knutov
 Subject : Re: сессии
 -------------------------------------------------------------------------------- 
 

 Приветствую!
 
 28 мая 2005 г. в 18:43:55 Вы стучались к All:
 
 NK>                    Hi, All
 
 NK>     Я в стyпоpе.
 NK>     Ко мне пpиходят некотоpые паpаметpы в GET запpосе. Я их сохpаняю в
 NK> сессии.
 
 NK>     foreach $a (%GET) {
 NK>         $az=$GET{ ${a} };
 NK>         $session->param($a, $az)
 NK>     }
 
 NK>     Все сохpаняется. Потом настyпает момент, когда я их хочy оттyда
 NK> вытащить. Заpанее список паpаметpов я не знаю, хочy вытащить все. Как?
 
 Указал бы хоть, каким классом сессий пользуешься. В манах к CGI::Session и
 Apache::Session получение всех параметров д.б. описано.
 
 NK>     Бyдет что-то foreach $b ($session->param) {что?}
 
 Смотря что внутри класса твоих сессий.
 Hапример, в самом простом классе можно так:
 sub new
 {
     ...
     $self = {
           data => {},
           ...
     }
     ...
 }
 
 # sub param
 # получение всех параметров:
 # %all_params = $session->param;
 #   или
 # $all_params = $session->param;
 # установка: $session->param(foo => 'bar');
 # получение: $foo = $session->param('foo');
 #
 sub param
 {
     my $self = shift;
     unless (@_) {
         return wantarray ? %{ $self->{data} } : $self->{data};
     }
     my $name = shift;
     if (@_) {
         $self->{data}{$name} = $_[0];
     }
     return $self->{data}{$name};
 }
 
 NK>     Как ваpиант - y меня есть @array со списком интеpесyющих меня
 NK> паpаметpов. Как вытащить их?    foreach $b (@array) {     
 NK> $b=$session->param($b);    } Это вообще коppектно? Или надо как-то
 NK> по-дpyггомy с ссылками?
 
 Корректно. Другое дело - получить список всех хранящихся в сессии
 параметров, не зная заранее их имен.
 
 -- 
 Удачи!
 Максим
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5.3
  * Origin: Enigma Soft (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    сессии   Nick Knutov   28 May 2005 20:43:55   Re: сессии   Maxim Yemelyanov   28 May 2005 19:21:24   Re^2: сессии   Nick Knutov   29 May 2005 00:43:24   Re^2: сессии   Serg Chervjakov   28 May 2005 23:12:34   Re: Re^2: сессии   Maxim Yemelyanov   28 May 2005 23:41:28