On Sep 18, 12:57 am, [EMAIL PROTECTED] (Chas Owens) wrote:
> On 9/17/07, VUNETdotUS <[EMAIL PROTECTED]> wrote:> I print some output in
> PERL. It is data in 3 columns. I use \t to add
> > a tab space to make a column.
> > However, \t may not produce the desired result. If the value is short
> > in length, next column is not aligned correctly in the row. Something
> > like this:
>
> > 123 12345 123456
> > 123 12345 123456
> > 1 1234 123456
> > 123 12345 123456
>
> > How can I make a nicely formatted output?
>
> snip
>
> Welcome to a classic problem. There are several solutions, but they
> all have their drawbacks. The best solution is to use a markup
> language like html and create a table, but this is not really an
> option for command line usage, the next best thing is to know what the
> maximum size for each column and to use a printf instead of print,
> then there is Perl6::Form, and a bunch of other modules that can help
> format data. In general, you can get away with this
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my @data = (
> [123, 12345, 123456],
> [1, 1234, 123456],
> [123, 12345, 123456],
> );
> for my $row (@data) {
> printf "%3.3s %5.5s %6.6s\n", @$row
>
> }
Also check out, Text::Table. I believe it does exactly what you need.
Find it at http://search.cpan.org/perldoc?Text::Table
Spiros
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
