Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
demo.pl	492 B	-rw-r--r--
demo_badheader.pl	433 B	-rw-r--r--
demo_cols.pl	1.37 KB	-rw-r--r--
demo_columns.pl	1.43 KB	-rw-r--r--
demo_filler.pl	432 B	-rw-r--r--
demo_footer.pl	510 B	-rw-r--r--
demo_leader1.pl	286 B	-rw-r--r--
demo_locale.pl	488 B	-rw-r--r--
demo_reentrant.pl	630 B	-rw-r--r--
demo_simple.pl	938 B	-rw-r--r--
demo_single.pl	358 B	-rw-r--r--
demo_table.pl	605 B	-rw-r--r--
demo_warnings.pl	241 B	-rw-r--r--
demo_ws.pl	499 B	-rw-r--r--

Code Editor : demo_columns.pl

#! /usr/bin/perl -w

use Text::Reform qw(form columns);

# Easy when data already in columns...

@name  = qw(Tom Dick Harry);
@score = qw( 88   54    99);
@time  = qw( 15   13    18);

print form
'-----------------------------',   
'Name             Score   Time',   
'-----------------------------',   
'[[[[[[[[[[[[[[   |||||   ||||',
\@name,          \@score,\@time;

print "\n"x2;

# Not so easy when data in rows...

@data = (
	{ name=>'Tom',   score=>88, time=>15 },
	{ name=>'Dick',  score=>54, time=>13 },
	{ name=>'Harry', score=>99, time=>18 },
);

# The ugly way...

print form
'-----------------------------',   
'Name             Score   Time',   
'-----------------------------',   
'[[[[[[[[[[[[[[   |||||   ||||',
[map $$_{name},  @data],
[map $$_{score}, @data],
[map $$_{time} , @data];

print "\n"x2;

# The nice way...

print form
'-----------------------------',   
'Name             Score   Time',   
'-----------------------------',   
'[[[[[[[[[[[[[[   |||||   ||||',
columns qw(name score time), @data;

@data = (
	[ 15, 'Tom',   88 ],
	[ 13, 'Dick',  54 ],
	[ 18, 'Harry', 99 ],
);

print "\n"x2;

# Works for arrays too, and multiple lists...

print form
'--------------------------------------',   
'Name             Score   Time  | Total',   
'--------------------------------------',   
'[[[[[[[[[[[[[[   |||||   ||||  | |||||',
columns 1,2,0, @data,
	    2, @data;

${this.title}

Code Editor : demo_columns.pl