Thread Text::Table::Tiny (18 answers)
Opened by geloescht at 2012-09-20 18:20

geloescht
 2012-09-20 20:37
#161964 #161964
User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]
Einen hab ich noch, dann ist Schluss für heute ;-)

Soweit bin ich schon:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

$sth=$dbh->prepare("SELECT * FROM kunden WHERE kdnummer LIKE '$kdnummer'");
$sth->execute();

#while(my @row = $sth->fetchrow_array){
#                                      print join('; ',@row)."\n";
#                                      }

$Text::Table::Tiny::COLUMN_SEPARATOR = '|';
$Text::Table::Tiny::ROW_SEPARATOR = '-';
$Text::Table::Tiny::CORNER_MARKER = '+';
$Text::Table::Tiny::HEADER_ROW_SEPARATOR = '_';
$Text::Table::Tiny::HEADER_CORNER_MARKER = '|';

#Tabellentest.pl

my $rows = [
        # header row
['kdnummer', 'kddatum', 'kdfirma', 'kdstrasse', 'kdhausnummer', 'kdplz', 'kdort', 'kdland', 'kdansprechpartner', 'kdtelefon', 'kdfax', 'kdemail'],
        # rows
        ['alice', 'pvt', '123456'],
        ['bob',   'cpl', '98765321'],
        ['carol', 'brig gen', '8745'],
    ];

print Text::Table::Tiny::table(rows => $rows, header_row => 1);
print " \n";


print " \n";
print "Datensatzsuche beendet! [ENTER] \n";


Bei Zeile 4-6 sieht man, wie ich bisher die Daten von @row ausgegeben habe. Das hat auch als "Line" funktioniert. Hab ich zum Testen mit "#" totgemacht.

Jetzt, da ich endlich das Modul "Text::Table::Tiny" habe, muss ich igendwie den Inhalt des Arrays "@row" in folgende Skalare hineintun:

Code (perl): (dl )
'$kdnummer' , '$kddatum', '$kdfirma', '$kdstrasse', '$kdhausnummer', '$kdplz', '$kdort', '$kdland', '$kdansprechpartner', '$kdtelefon', '$kdfax', '$kdemail'


Diese Skalare muss ich dann irgendwie in die Eckigen Klammern von Zeile 20-22 hineintun. Das Header-row ist aber schon mal in Ordnung so.

Und weil das immer noch nicht schwer genug ist, muss ich das ganze auch noch irgendwie durch eine Schleife laufen lassen, damit das als Tabelle ausgegeben wird.

Ist das lösbar, dass my $rows dynamisch über while gefüllt werden kann?

Gruss HP-User
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

View full thread Text::Table::Tiny