ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  14 Jun 2000  15:48:15
 To : Sasha Chorny
 Subject : Re: eq "word1"...
 -------------------------------------------------------------------------------- 
 

 <Sasha_Chorny@p23.f75.n469.z2.fidonet.org> wrote:
 
  PK>> Вот такая вещь у меня:
  PK>> if ($FORM{'password'} eq "word1") {
  PK>>      &ok;
  PK>>    }
  >>> A как сделать, чтобы еще несколько слов поключить например eq
  >>> "word1", "word2"...?
 SC> Использовать || или
 SC> %pwd = qw(word1 1 word2 1 word3 1);
 SC> if ($Pwd{$FORM{'password'}}) {
 SC>  &ok;
 SC> }
 
 Извращенец... if (grep($_ eq $FORM{'password'}, qw(word1 word2 word3)))
 
 P.S. Да, при большом размере массива и более чем одной проверке на одну его
 генерацию хэш выгоднее.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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

Тема:    Автор:    Дата:    eq "word1"...   Pawel Kaimakow   05 Jun 2000 13:23:23   eq "word1"...   Sasha Chorny   07 Jun 2000 04:25:40   Re: eq "word1"...   Artem Chuprina   14 Jun 2000 15:48:15