ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     18 Apr 2000  15:18:48
 To : All
 Subject : Re: поиск в большом массиве?
 -------------------------------------------------------------------------------- 
 

 Dmitriy Goldobin wrote:
 
 > 
 > >     my ($key,$tail)=split /\s/,$_,2;
 > >     $data{$key}||=[];
 > >     push @{$data{$key}},$tail;
 > Кстати, я был приятно удивлен, что вторая строчка не обязательна :)
 
 Действительно :-) Похоже фича push-а, поскольку здесь
 вопреки видимому @{$data{$key}} преобразования скаляра undef
 в массив не происходит, т.к. push в действительности
 принимает ссылку. Хитрые твари :-)
 
 Андрей
 --- ifmail v.2.15dev4
  * Origin: Chelindbank (2:5020/400)
 
 

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