Re: List into two-dimensional array

You could keep using splice and achieve your goal by using a sub.

sub group {
   my $n = shift;
   my @rv;
   push @rv, [ splice(@_, 0, $n) ] while @_;
   return @rv;
}

my @rv = group($C, @list);
[download]

Update: Woops! Fixed issue brought up by haukex in reply.

Comment on Re: List into two-dimensional array Select or Download Code

Replies are listed 'Best First'.
Re^2: List into two-dimensional array by haukex (Archbishop) on Dec 14, 2020 at 19:13 UTC
`sub group { my $n = shift; my @rv; push @rv, splice(@_, 0, $n) while @_; return @rv; }` [download] That just returns a copy of the original list. You probably meant `push @rv, [ splice(@_, 0, $n) ] while @_;`.	[reply] [d/l] [select]