Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Report Formatting Help

by TilRMan (Friar)
on Jul 14, 2004 at 03:01 UTC ( [id://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.