Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: matrix - creating total row/column

by graff (Chancellor)
on Oct 14, 2009 at 01:48 UTC ( #800996=note: print w/replies, xml ) Need Help??


in reply to matrix - creating total row/column

In order to output column and row totals, I think the best way is to build it into the data structure in the first place. This means adding a little bit to the "while" loop that is reading the data:
my %from_to_bytes; my %col_headings; while (<DATA>) { ( $from, $to, $hh, $mm, $bytes ) = /^(\S+) (\S+) (\d+):(\d+) (\d+) +$/ or ( warn "bad format on line $.: $_" ), next; $from_to_bytes{$from}{$to} += $bytes; $from_to_bytes{$from}{"~~TOTAL"} += $bytes; $from_to_bytes{"~~TOTAL"}{$to} += $bytes; $col_headings{$to} = undef; }
By putting "~~" as the first two characters of the hash key for the column and row totals, those keys will come out last when you sort the keys for output (because tilde comes last in ascii collation). Then you just print the matrix in the normal way, with no further ado:
print join("\t", '', sort keys %col_headings, 'Total'),"\n"; for my $from ( sort keys %from_to_bytes ) { print (( $from eq '~~TOTAL' ) ? 'Total' : $from ); print "\t$from_to_bytes{$from}{$_}" for (sort keys %{$from_to_byte +s{$from}}); }
(not tested)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (None)
    As of 2021-10-16 06:06 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?
      My first memorable Perl project was:







      Results (69 votes). Check out past polls.

      Notices?