ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Kuznetsov                       2:5011/139     14 Apr 2003  17:03:56
 To : Andrew Alakozow
 Subject : подскажите
 -------------------------------------------------------------------------------- 
 

 
 12 апр 03 17:11, you wrote to me:
 
  AA>  * Forwarded from area 'RU.PERL'
  OK>> ### Parse pointlist
  OK>> ################################################### open(LST,"<
  OK>> $cfg{lst}") or die "can't open $cfg{lst}"; while ( <LST> ) {
  OK>>  chomp;
  OK>>    if (/^point/i) {
  OK>>       my (undef, $num) = split /,/;
  OK>>       print "$num\n";
  OK>>       }
  OK>> }
  OK>> close(LST);
  AA> Это можно тоже в хэш грузить:
 
  AA> while (<LST>) {
  AA>  next unless /^point,\s(\d+)/i;
  AA>  $plist{$1}++;
  AA> }
 
  OK>> как сделать проверку на перле
  AA> exists $plist{$msg{num}};
 
 сделал так
 open(LST,"< $cfg{lst}") or die "can't open $cfg{lst}";
 while ( <LST> ) {
      if (/^point,(\d+)/i){
         %lst = $1;
         if (exists $lst{$msg{num}}){
                 print "found\n";
         }
         else
         {
         print "not found\n";
         }
      }
 }
 close(LST);
 
 в результате получаю
 
 not found
 not found
 not found
 not found
 not found
 not found
 not found
 not found
 not found
 not found
 not found
 not found
 not found
 found
 
 а как получить единый ответ, то есть чтоб вернуть 0 или 1
 
 Oleg
 ... Xmms play: Фабрика звезд - Корни - Я теряю корни
 --- GoldED+/BSD 1.1.5 (FreeBSD 4.8-STABLE i386) !
  * Origin: 17:03  up 21:19, 5 users, load averages: 0,00 0,03 0,05 (2:5011/139)
 
 

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

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