ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Sulemanov                     2:4635/1024.27 15 Apr 2003  08:04:51
 To : Oleg Kuznetsov
 Subject : подскажите
 -------------------------------------------------------------------------------- 
 

  OK>>> как сделать проверку на перле
  AA>> exists $plist{$msg{num}};
  OK> сделал так
  OK> open(LST,"< $cfg{lst}") or die "can't open $cfg{lst}";
  OK> while ( <LST> ) {
  OK>      if (/^point,(\d+)/i){
  OK>         %lst = $1;
 
              ^^^^^^^^^^ - здесь ошибка...
                           проверяешь на значение, а значение yпyскаешь.
 
  OK>         if (exists $lst{$msg{num}}){
 
                                   ^^^    - ключ num статический?
                                            вроде здесь надо $1...
 
  OK>                 print "found\n";
  OK>         }
  OK>         else
  OK>         {
  OK>         print "not found\n";
  OK>         }
  OK>      }
  OK> }
  OK> close(LST);
 
     Объясните что должен скрипт делать, может помогy...
  OK> в результате получаю
  OK> not found
  OK> not found
  OK> а как получить единый ответ, то есть чтоб вернуть 0 или 1
      С Уважением, Руслан.
 
 --- GoldED+/FreeBSD 4.8-STABLE
  * Origin: *JEET:* support@icu.net.ua *:UA* (2:4635/1024.27)
 
 

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

Тема:    Автор:    Дата:    подскажите   Oleg Kuznetsov   12 Apr 2003 17:47:34   Re: подскажите   Andrew Alakozow   12 Apr 2003 17:11:14   подскажите   Oleg Kuznetsov   14 Apr 2003 17:03:56   Re: подскажите   Andrew Alakozow   14 Apr 2003 16:15:04   подскажите   Oleg Kuznetsov   15 Apr 2003 16:23:14   подскажите   Ruslan Sulemanov   15 Apr 2003 08:04:51   подскажите   Oleg Kuznetsov   15 Apr 2003 18:08:58