ru.perl

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

 OK> ### Parse pointlist ###################################################
 OK> open(LST,"< $cfg{lst}") or die "can't open $cfg{lst}";
 OK> while ( <LST> ) {
 OK>  chomp;
 OK>    if (/^point/i) {
 OK>       my (undef, $num) = split /,/;
 OK>       print "$num\n";
 OK>       }
 OK> }
 OK> close(LST);
 
 Это можно тоже в хэш грузить:
 
 while (<LST>) {
  next unless /^point,\s(\d+)/i;
  $plist{$1}++;
 }
 
 OK> как сделать проверку на перле
 
 exists $plist{$msg{num}};
 
 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