ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Goldobin                     2:5020/400     18 Apr 2000  14:51:29
 To : All
 Subject : Re: поиск в большом массиве?
 -------------------------------------------------------------------------------- 
 

 >     my ($key,$tail)=split /\s/,$_,2;
 >     $data{$key}||=[];
 >     push @{$data{$key}},$tail;
 
 Кстати, я был приятно удивлен, что вторая строчка не обязательна :)
 --- ifmail v.2.15dev4
  * Origin: Electronic Microsystems JSC (2:5020/400)
 
 

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