Help for this page

Select Code to Download


  1. or download this
    my @arr = qw ( apples oranges bananas pears berries apricots peaches )
+;
my @arr_of_columns = unmerge_list_d( \@arr, 2 );
  2. or download this
        ['apples', 'bananas','berries', 'prunes']
    ['oranges','pears',  'apricots']
  3. or download this
    my $arr_of_arr = unmerge_list_d( [ 1 .. 7 ], 3, 'goofy' );
  4. or download this
    [
    [1, 4, 7]
    [2, 5, 'goofy']
    [3, 6, 'goofy']
]
  5. or download this
    sub unmerge_list_d {
    my ( $list_ref, $qty, $pad ) = @_;
    return unless ref $list_ref eq 'ARRAY';
...
    return @$arr if wantarray;
    return $arr;
}