List::Group - Group a list of data structures to your specifications.
use List::Group qw[group]; my @list = qw[cat dog cow rat]; my @group = group @list, cols => 2; foreach my $row ( @group ) { print "@{$row}\n"; }
A simple module that currently allows you to group a list by columns or rows.
group
my @table = group \@list, cols => 2;
This function returns a list-of-lists containing the elements of listref passed as the first argument. The remaining arguments detail how to group the elements. Available groupings are cols, and rows. Each of these groupings accept a single digit as a value, the number of cols or rows to create.
cols
rows
The following is what @table would look like from the previous example.
@table
my @list = qw[cat dog mouse rat]; my @table = group \@list, cols => 2; print Dumper \@table; __END__ $VAR1 = [ [ 'cat', 'dog' ], [ 'mouse', 'rat' ] ];
Casey West, <casey@geeknest.com>.
Copyright (c) 2004 Casey West. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install List::Group, copy and paste the appropriate command in to your terminal.
cpanm
cpanm List::Group
CPAN shell
perl -MCPAN -e shell install List::Group
For more information on module installation, please visit the detailed CPAN module installation guide.