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

geloescht
 2012-09-21 22:54
#161994 #161994
User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]
Hallo topeg

Deine Vorschläge haben gefruchtet. Durch:
Code (perl): (dl )
binmode STDOUT, ":encoding(UTF-8)";


im Kopf und :

Code (perl): (dl )
1
2

  @row=map{decode("UTF-8", $_)}@row;
  push @$rows, [@row];


unten bei der Tabelle, ist die Ausgabe so wie sie sein soll:

Code: (dl )
1
2
3
4
5
6
7
+----------+----------+----------+---------------+--------------+-------+---------------+--------+-------------------+-----------+---------+--------------------+
| 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       |
+----------+----------+----------+---------------+--------------+-------+---------------+--------+-------------------+-----------+---------+--------------------+


Aber sämtlicher Text, den ich im Terminal normal mit "print" ausgebe ist jetzt dafür falsch:

Code: (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
31
+-----------------------------------------------------+ 
| E********** / Daten-Verwaltungs-Programm (EZ-DVP) | 
+-----------------------------------------------------+ 
 
>> Hauptmenü << 
 
+-----------------------------------------------------+ 
| [1]  Kunden anlegen...                              | 
|                                                     | 
| [2]  Kunden suchen...                               | 
|                                                     | 
| [3]  Kunden editieren...                            | 
|                                                     | 
| [4]  Kurzgeschichte anlegen...                      | 
|                                                     | 
| [5]  Kurzgeschichte suchen...                       | 
|                                                     | 
| [6]  Kurzgeschichte editieren...                    | 
|                                                     | 
| [7]  Buchungsstatus abfragen...                     | 
|                                                     | 
| [8]  Statistik aufrufen...                          | 
|                                                     | 
| [9]  Datenbank sichern...                           | 
|                                                     | 
| [10] Hilfe anzeigen...                              | 
|-----------------------------------------------------| 
| [0] Programm beenden...                             | 
+-----------------------------------------------------+ 
 
Bitte Aufgabe wählen [x]:


Du siehst wie jetzt das "ü" in Hauptmenü verunstalltet wurde :-(
Ebenso das "ä" im Wort wählen.

Hier der Perlpassus:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

###################################################################
HauptMenu: 
###################################################################

system("clear");
print "+-----------------------------------------------------+ \n";
print "| E********** / Daten-Verwaltungs-Programm (EZ-DVP) | \n";
print "+-----------------------------------------------------+ \n";
print " \n";
print ">> Hauptmenü << \n";
print " \n";
print "+-----------------------------------------------------+ \n";
print "| [1]  Kunden anlegen...                              | \n";
print "|                                                     | \n";
print "| [2]  Kunden suchen...                               | \n";
print "|                                                     | \n";
print "| [3]  Kunden editieren...                            | \n";
print "|                                                     | \n";
print "| [4]  Kurzgeschichte anlegen...                      | \n";
print "|                                                     | \n";
print "| [5]  Kurzgeschichte suchen...                       | \n";
print "|                                                     | \n";
print "| [6]  Kurzgeschichte editieren...                    | \n";
print "|                                                     | \n";
print "| [7]  Buchungsstatus abfragen...                     | \n";
print "|                                                     | \n";
print "| [8]  Statistik aufrufen...                          | \n";
print "|                                                     | \n";
print "| [9]  Datenbank sichern...                           | \n";
print "|                                                     | \n";
print "| [10] Hilfe anzeigen...                              | \n";
print "|-----------------------------------------------------| \n";
print "| [0] Programm beenden...                             | \n";
print "+-----------------------------------------------------+ \n";
print " \n";
print "Bitte Aufgabe wählen [x]:";
my $decider;
$decider = <STDIN>;
chop($decider);
if ($decider eq "1") {goto KundenAnlegen;}
if ($decider eq "2") {goto KundenSuchen;}
if ($decider eq "3") {goto KundenEditieren;}
if ($decider eq "4") {goto KurzgeschichteAnlegen;}
if ($decider eq "5") {goto KurzgeschichteSuchen;}
if ($decider eq "6") {goto KurzgeschichteEditieren;}
if ($decider eq "7") {goto BuchungsstatusAbfragen;}
if ($decider eq "8") {goto StatistikAufrufen;}
if ($decider eq "9") {goto DatenbankSichern;}
if ($decider eq "10") {goto HilfeAnzeigen;}
if ($decider eq "0") {goto ProgrammBeenden;}
goto HauptMenu;


Ist es nicht möglich, den Normalen Print-Text sowie den Text aus der Datenbank so zu kodieren, dass beide lesbar sind? Ich glaube diese Befehle schließen sich gegenseitig aus :-/

Mittlerweile verzweifelte Grüsse HP-User

PS.: Die Codierungsgeschichte scheint ein eigenes Studienfach zu sein - wahnsinn, wieviel Zeit man da hineinstecken kann - ohne wiklich voran zu kommen. So langsam fühle ich mich wie bei Asterix und Obelix, als die versuchten, den Passierschein A38 zu bekommen - ein Ding der Unmöglichkeit *g*
Last edited: 2012-10-05 14:44:25 +0200 (CEST)
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

View full thread Text::Table::Tiny