(jeffa) Re: Create table from a list of values?

Text::Table is definitely the way to go ... but you still have to split up your one dimensional array into two in order to use it. I recently posted some code that does such (emulate Python's range function). Putting the two together yields:

use strict;
use warnings;
use Text::Table;
use Data::Dumper;

my $step  = shift || 5;
my $tb    = Text::Table->new(map "head$_", 1..$step);
my @array = qw(
   adsm-02   besy-02  c006603  c007581    c008433    c009684  
   asterix   c003097  c006664  c007653    c008433-1  c009853  
   avo00106  c003701  c006790  c007760    c008434    c009992  
   avo01000  c003706  c006792  c007761    c008436    c009993
);
my @two_d = map[ @array[$_..$_+$step-1] ], range(0,$#array,$step);

$tb->load(@two_d);
print $tb;

sub range {grep!(($_-$_[0])%($_[2]||1)),$_[0]..$_[1]}
[download]

Hope this helps. :)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on (jeffa) Re: Create table from a list of values? Download Code