Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: Report Formatting Help

by TilRMan (Friar)
on Jul 14, 2004 at 03:01 UTC ( #374202=note: print w/ replies, xml ) Need Help??

in reply to Report Formatting Help

#!/usr/bin/perl -w use strict; use Text::Table; my %data; while (<>) { my ( $rep, $product, $foo ) = split ' '; $data{$rep}{$product} = $foo; } my @reps = sort keys %data; my $table = Text::Table->new( '', @reps ); for my $i ( 0 .. $#reps ) { my $rep = $reps[$i]; my @products = sort keys %{ $data{$rep} }; foreach (@products) { $table->add( $_, ('') x $i, $data{$rep}{$_} ); } } print $table;

BTW, having never used Text::Table before, I found it surprisingly powerful. Most of that power is unused on this program.

Comment on Re: Report Formatting Help
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (10)
As of 2015-08-03 09:44 GMT
Find Nodes?
    Voting Booth?

    The oldest computer book still on my shelves (or on my digital media) is ...

    Results (29 votes), past polls