Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: output of array into data

by artist (Parson)
on Sep 06, 2006 at 20:23 UTC ( [id://571544]=note: print w/replies, xml ) Need Help??


in reply to output of array into data

use Text::Table;
my $tb = Text::Table->new();


@Range   = qw(10-20 20-30    30-40    41-50    51-60   61-70);
@Count   = qw(0 0 0 0 3 0);
@Percent = qw(0 0 0 0 75 0);

my @data = (
    [ "Range",   @Range ],
    [ "Count",   @Count ],
    [ "Percent", @Percent ],
);

$tb->load(@data);

print $tb;

[download]
Above code produces 
Range   10-20 20-30 30-40 41-50 51-60 61-70
Count   0     0     0     0      3    0
Percent 0     0     0     0     75    0
--Artist

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://571544]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2024-04-26 07:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found