Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: printing upper letter of the matrix

by rnewsham (Curate)
on Jan 13, 2014 at 15:11 UTC ( [id://1070424]=note: print w/replies, xml ) Need Help??


in reply to printing upper letter of the matrix

I think Text::Table may do what you want. Here is a basic example based on your code.

use strict; use warnings; use Data::Dumper; use Text::Table; my %data = ( A => { A => 5, R => -2, N => -1 }, R => { A => -2, R => 7, N => -1 }, N => { A => -1, R => -1, N => 7 }, ); my @keys = sort keys %data; my $tb = Text::Table->new( '', @keys ); for my $row (@keys) { my @values; push @values, $data{$row}{$_} for @keys; $tb->load( [$row, @values] ); } print $tb; Output A N R A 5 -1 -2 N -1 7 -1 R -2 -1 7 With A:A changed to 1500 A N R A 1500 -1 -2 N -1 7 -1 R -2 -1 7

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1070424]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2024-03-29 01:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found