Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re: alignment of text in Text::Table

by Cristoforo (Curate)
on Aug 19, 2012 at 17:13 UTC ( #988340=note: print w/replies, xml ) Need Help??

in reply to alignment of text in Text::Table

Here is a small program that shows how to align the data. You should be able to run it.

Please follow 2teez's advise and look at the link he provided to see how to format the code/data in your post. (You can edit your post after you first post it).

#!/usr/bin/perl use strict; use warnings; use Text::Table; my $tb = Text::Table->new( \'| ', { title => 'Planet', align => 'center', align_title => 'center' }, \" | ", { title => 'Radius', align => 'center', align_title => 'center' }, \" | ", { title => 'Density', align => 'center', align_title => 'center' }, \' |', ); $tb->warnings('on'); $tb->load( [ "Mercury", 2360, "3.7" ], [ "Jupiter", 71030, "1.3" ], ); print $tb->title(); print $tb->rule('-','|'); print $tb->body(0); print $tb->body(1); print $tb->body_rule('-','-'); __END__ Microsoft Windows XP [Version 5.1.2600] (C) Copyright 1985-2001 Microsoft Corp. C:\perlp\Text_Table>perl | Planet | Radius | Density | |---------|--------|---------| | Mercury | 2360 | 3.7 | | Jupiter | 71030 | 1.3 | ------------------------------ C:\perlp\Text_Table>
Note: This example was posted by Marto in this node.

Replies are listed 'Best First'.
Re^2: alignment of text in Text::Table
by kramer (Initiate) on Aug 20, 2012 at 03:49 UTC

    Thanks, Cristoforo for your time and effort. Sorry for not formating. It's my first post and I am not well versed. I have corrected the post as you and 2teez pointed. Following your advice I got what I wanted. Thanks and cheers


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://988340]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (9)
As of 2018-06-18 18:07 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (110 votes). Check out past polls.