ASCII-Tabellen mit Text::ASCIITable

| | Kommentare (0)

Dank Text::ASCIITable von Håkon Nessjøen lassen sich schöne Tabellen im Textmodus im Handumdrehen erstellen.

 

Beispiel

#!/usr/bin/perl 
use strict;
use warnings;

use Text::ASCIITable;

my $table = Text::ASCIITable->new( { headingText => 'Sales per Year' } );

$table->setCols( 'Year', 'Sales' );

$table->alignCol( 'Year' => 'left', 'Sales' => 'right' );

$table->addRow( 2005, "3000.00" );
$table->addRow( 2006, "4000.00" );
$table->addRow( 2007, "3500.00" );
$table->addRow( 2008, "5800.00" );

$table->addRowLine;
$table->addRow( 'Average', "4075.00" );

print $table;

Das Programm erzeugt folgende Ausgabe:

.-------------------.
|   Sales per Year  |
+---------+---------+
| Year    | Sales   |
+---------+---------+
| 2005    | 3000.00 |
| 2006    | 4000.00 |
| 2007    | 3500.00 |
| 2008    | 5800.00 |
+---------+---------+
| Average | 4075.00 |
'---------+---------'

 

Siehe auch

Jetzt kommentieren

Über diese Seite

Diese Seite enthält einen einen einzelnen Eintrag von Thomas Fahle vom 21.09.09 19:30.

File::Which - portables (p)which ist der vorherige Eintrag in diesem Blog.

YAPC::EU::2009 videos - Larry Wall talking about Perl 6 ist der nächste Eintrag in diesem Blog.

Aktuelle Einträge finden Sie auf der Startseite, alle Einträge in den Archiven.

Blog Roll

Powered by

Powered by Movable Type 5.2.10

Creative Commons-Lizenz

Creative Commons License
Dieses Weblog steht unter einer Creative Commons-Lizenz.