madM has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks..
I know i allready posted something similar but now im trying to print the upper letters of a matrix in a way that the matrix remains formated if the values (numbers) change .. for example in this code if you change the value of A => {A => from 5 to 1500 the matrix would no be formated properly any more thanks for the help!
I know i allready posted something similar but now im trying to print the upper letters of a matrix in a way that the matrix remains formated if the values (numbers) change .. for example in this code if you change the value of A => {A => from 5 to 1500 the matrix would no be formated properly any more thanks for the help!
use strict; use warnings; use Data::Dumper; 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; print ' '; printf "%4s" => $_ for @keys; print "\n"; for my $row (@keys) { print $row; printf "%4s" => $data{$row}{$_} for @keys; print "\n"; } exit;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: printing upper letter of the matrix
by kcott (Archbishop) on Jan 13, 2014 at 15:24 UTC | |
Re: printing upper letter of the matrix
by rnewsham (Curate) on Jan 13, 2014 at 15:11 UTC |
Back to
Seekers of Perl Wisdom