ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       14 Apr 2003  16:15:04
 To : Oleg Kuznetsov
 Subject : Re: подскажите
 -------------------------------------------------------------------------------- 
 

 OK> сделал так
 OK> open(LST,"< $cfg{lst}") or die "can't open $cfg{lst}";
 OK> while ( <LST> ) {
 OK>      if (/^point,(\d+)/i){
 OK>         %lst = $1;
 OK>         if (exists $lst{$msg{num}}){
 OK>                 print "found\n";
 OK>         }
 OK>         else
 OK>         {
 OK>         print "not found\n";
 OK>         }
 OK>      }
 OK> }
 OK> close(LST);
 
 1. В программах на Perl крайне желательно использовать use strict;
 2. Сначала нужно загрузить хэш, а потом проверять наличие в нем ключа;
 3. После %lst = $1, в %lst оказывается хэш  ($1 => undef), тебе нужно
 добавлять элементы: $lst{$1}=1;
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

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

Тема:    Автор:    Дата:    подскажите   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