ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Goldobin                     2:5020/400     19 Apr 2000  14:52:54
 To : All
 Subject : Re: Знатокам
 -------------------------------------------------------------------------------- 
 

 Hi!
 
 > > while (@in) {
 > >   push @out, [ shift(@in),shift(@in),shift(@in) ];
 > > }
 > Почему это не получится? Еще как получится!
 >
 > @arr=qw(1 2 3 4 5 6 7 8 9);
 > $n=0;
 > @resarr=map { $n+=3; [@arr[$n-3..$n-1] ]; } @arr;
 > $#resarr=$#resarr/3;
 >
 > только что-то сие достаточно малоэлегантно.
 
 Hет, если уж извращаться, то можно и так:
 
 my @b = grep {defined $_->[0]} map {[shift @a, shift @a, shift @a]} @a;
 
 :) Hо я надеялся что я упустил из виду элегантный вариант.
 
 Hужно это чтобы группировать результаты глобального регекспа типа:
 
 @a = ... = /..(..)..(..)..(..)../gs;
 
 А ныне оно делается как
 @a = (); while( /.../gs ) { push @a, [$1,$2,$3] };
 
 Bye.
 --- ifmail v.2.15dev4
  * Origin: Electronic Microsystems JSC (2:5020/400)
 
 

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