ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir N. Zaytcev                  2:5015/116     07 Jun 2000  19:17:19
 To : Pawel Kaimakow
 Subject : eq "word1"...
 -------------------------------------------------------------------------------- 
 

 
 ю <05 Июн 2000> [13:23], Pawel Kaimakow (2:5023/10.91) => All:
  PK> Вот такая вещь у меня:
  PK> if ($FORM{'password'} eq "word1") {
  PK>      &ok;
  PK>    }
  >> A как сделать, чтобы еще несколько слов поключить например eq "word1",
  >> "word2"...?
 
 @word = 'word1', 'word2';
 
 foreach $word (@word) {
 if ($FORM{'password'} eq "$word") {
       &ok;
     }}
 
 Vale! //мартовский зайцев | www@fito.nnov.ru | http://www.fito.nizhny.ru
 
 --- phytos .. [ь755146,303000]
  * Origin: Ebrietas est metropolis omnium vitiorum (2:5015/116)
 
 

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