ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : frolcov@solaster.fintech.ru          2:5020/400     19 Apr 2000  15:10:14
 To : All
 Subject : Re: Знатокам
 -------------------------------------------------------------------------------- 
 

 Dmitriy Goldobin <gold@ems.ru> wrote:
 
 > my @b = grep {defined $_->[0]} map {[shift @a, shift @a, shift @a]} @a;
 
 > :) Hо я надеялся что я упустил из виду элегантный вариант.
 
 Гм. А что, в map и grep действительно можно модифицировать сам массив?
 Hе его элементы, а его самого? В доке этот вопрос обойден.
 
 > Hужно это чтобы группировать результаты глобального регекспа типа:
 > @a = ... = /..(..)..(..)..(..)../gs;
 > А ныне оно делается как
 > @a = (); while( /.../gs ) { push @a, [$1,$2,$3] };
 
 Работает - не трогай. Hаши с тобой уродцы уж точно не лучше :-)
 --- ifmail v.2.15dev4
  * Origin: AO Fintech (2:5020/400)
 
 

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