|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Gernichenko 2:5079/49.18 01 Dec 2004 18:19:34
To : All
Subject : Можно оптимизировать?
--------------------------------------------------------------------------------
join "&", (map {"$_=".($adpars->{$_}||$inq->{$_})} grep {defined ($inq->{$_})}
(keys %$adpars,grep {!exists $$adpars{$_} }@$session ) ) ;
Здесь $adpars,$inq - ссылки на хэш, $session - ссылка на массив.
В общем, надо получить строку параметров для URL (имя=значение&...). Имена не
должны повторяться, значения надо брать из $adpars, если нету - то из $inq. И не
должно быть пар без значений.
До скорых встреч, *All* С уважением, *Sergey*.
--- WinNT 5.1.2600-Service_Pack_2 i1586 Eng, AS Perl5.6.1, Borland C++ v5.02
* Origin: Жизнь прекрасна и удивительна: живу и удивляюсь (2:5079/49.18)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
