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

geloescht
 2012-09-20 22:33
#161968 #161968
User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]
Hallo pq

Ja, das ist jetzt die einfache Variante, wo @row am Stück übergeben wird. Vielleicht erklärt dies das hier:

Bei Ausgabe einer Tabellenzeile:

Code: (dl )
1
2
3
4
5
6
7
8
9
Bitte gesuchte Kundennummer eingeben :100102
 
+----------+----------+---------+-----------+--------------+-------+--------+--------+-------------------+-----------+--------+----------------+
| kdnummer | kddatum  | kdfirma | kdstrasse | kdhausnummer | kdplz | kdort  | kdland | kdansprechpartner | kdtelefon | kdfax  | kdemail        |
+----------+----------+---------+-----------+--------------+-------+--------+--------+-------------------+-----------+--------+----------------+
| 100102   | 20120917 | ffgh    | fghfh     | fghfgh       | fhfgh | fghfgh | fghf   | fghfhfh           | 4646      | 645656 | 45ghjghjg21ghj |
+----------+----------+---------+-----------+--------------+-------+--------+--------+-------------------+-----------+--------+----------------+ 
 
Datensatzsuche beendet! [ENTER]


Bei mehreren Zeilen verschiebt sich die Ausgabe Trotz der Verwendung von Text::Table::Tiny wie hier zu sehen vor allem nach hinten heraus:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
Bitte gesuchte Kundennummer eingeben :100100
 
+----------+----------+----------+---------------+--------------+-------+---------------+--------+-------------------+-----------+---------+--------------------+
| kdnummer | kddatum  | kdfirma  | kdstrasse     | kdhausnummer | kdplz | kdort         | kdland | kdansprechpartner | kdtelefon | kdfax   | kdemail            |
+----------+----------+----------+---------------+--------------+-------+---------------+--------+-------------------+-----------+---------+--------------------+
| 100100   | 20120917 | MaxTech  | Musterstrasse | 11           | 79576 | Weil am Rhein | D      | Herr Müller      | 123456    | 123456  | service@maxtech.de |
| 100100   | 20120917 | Testshop | Testweg       | 13           | 79618 | Rheinfelden   | D      | Frau Tester       | 123456    | 1234567 | test@tester.de     |
| 100100   | 20120917 | kjhkjh   | lkjlkj        | 45           | 78987 | ölkölk      | D      | Herr Lölle       | 321       | 654     | 654@mnbmn.de       |
+----------+----------+----------+---------------+--------------+-------+---------------+--------+-------------------+-----------+---------+--------------------+ 
 
Datensatzsuche beendet! [ENTER]


Woran mag das liegen? Ist das Modul doch zu "Tiny" für solch eine Aufgabe?

Ach ja, der Perlcode noch:

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

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

$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

$rows=[];
push @$rows, [qw(kdnummer kddatum kdfirma kdstrasse kdhausnummer kdplz kdort kdland kdansprechpartner kdtelefon kdfax kdemail)];
while(@row = $sth->fetchrow_array){
                                  push @$rows, [@row];
                                  }

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

print " \n";
print "Datensatzsuche beendet! [ENTER] \n";
$sth->finish();
$dbh->disconnect();


Grüsse HP-User
Last edited: 2012-09-20 22:37:10 +0200 (CEST)
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

View full thread Text::Table::Tiny