Text::Table::Tiny (gelöst) (Fragen zu Perl-Modulen)

[thread]17771[/thread]

Text::Table::Tiny [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+19 replies

geloescht

2012-09-20 18:20

User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]

Hallo Forumsgemeinde,

Ich habe folgendes Modul installiert: Text::Table::Tiny

Hierzu gibt es eine eigentlich sehr gute Beschreibung.

Ich hab mir daraus folgendes für Testzwecke gebaut:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use Fcntl ':flock';
use FindBin '$Bin';
use Text::Table::Tiny;
    
use $Text::Table::Tiny::COLUMN_SEPARATOR = '|';
use $Text::Table::Tiny::ROW_SEPARATOR = '-';
use $Text::Table::Tiny::CORNER_MARKER = '+';
use $Text::Table::Tiny::HEADER_ROW_SEPARATOR = '=';
use $Text::Table::Tiny::HEADER_CORNER_MARKER = 'O';

#Tabellentest.pl

my $rows = [
        # header row
        ['Name', 'Rank', 'Serial'],
        # rows
        ['alice', 'pvt', '123456'],
        ['bob',   'cpl', '98765321'],
        ['carol', 'brig gen', '8745'],
    ];

Dieser Code produziert aber eine Fehlermeldung, mit der ich nichts anfangen kann. Hier die Fehlermeldung:

Quote
syntax error at ./Tabellentest.pl line 10, near "use $Text::Table::Tiny::COLUMN_SEPARATOR "
Execution of ./Tabellentest.pl aborted due to compilation errors.

Ich kann nicht lokalisieren, ob ich in meinem kleinen Perlprogramm einen Feher gemacht habe, oder ob der Fehler in einem Bereich des eingebundenen Moduls liegt. Ich habe auf jeden Fall alles vom CPAN-Beispiel kopiert. Das Testprogramm will nicht laufen.

Tipps zur Fehlerbeseitigung werden gerne angenommen :-)

Gruss HP-User
Last edited: 2012-09-20 18:31:20 +0200 (CEST)

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

+18 replies

Linuxer

2012-09-20 18:37

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Lass das "use" weg bei allen Zeilen, in denen Du Variablen des Moduls modifizierst:

Code (perl): (dl )

# nicht so
# use $Text::Table::Tiny::COLUMN_SEPARATOR = '|';

# einfach so
$Text::Table::Tiny::COLUMN_SEPARATOR = '|';

PS/Edit: wo ist das mit dem "use" so angegeben im Modulbeispiel.
Last edited: 2012-09-20 18:38:54 +0200 (CEST)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+17 replies

geloescht

2012-09-20 19:05

User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]

Hallo Linuxer

Ich hab das von der verlinkten CPAN-Seite, ganz unten unter der Überschrift "Format Variables".

Dein Tipp hat die Fehlermeldung beseitigt. Aber er zeigt im Terminal nicht die Beispieltabelle von CPAN an. Warum bekomme ich kein Output? Müsste im CPAN-Beispiel nicht mindesten irgendwo ein print stehen?

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use Fcntl ':flock';
use FindBin '$Bin';
use Text::Table::Tiny;
    
$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 = 'O';

#Tabellentest.pl

my $rows = [
        # header row
        ['Name', 'Rank', 'Serial'],
        # rows
        ['alice', 'pvt', '123456'],
        ['bob',   'cpl', '98765321'],
        ['carol', 'brig gen', '8745'],
    ];

Gruss HP-User

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

+16 replies

2012-09-20 20:06

User since
2003-08-04
12208 Artikel
Admin1

im beispiel steht doch:

Code: (dl )

1
2

    # separate rows puts lines between rows, header_row says that the first row is headers
    print Text::Table::Tiny::table(rows => $rows, separate_rows => 1, header_row => 1);

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

+15 replies

geloescht

2012-09-20 20:11

User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]

Hi pq

Habs später gesehen - muss doch mal die Brille putzen :-)

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

+14 replies

geloescht

2012-09-20 20:37

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 )

$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?

+13 replies

Gast wer

2012-09-20 21:06

Code (perl): (dl )

1
2
3

my $rows=[];
push @$rows, [qw(kdnummer kddatum kdfirma kdstrasse kdhausnummer kdplz kdort kdland kdansprechpartner kdtelefon kdfax kdemail)];
push @$rows, ['wert','wert','wert','wert','wert','wert','wert','wert','wert','wert','wert','wert'];

Last edited: 2012-09-20 21:15:03 +0200 (CEST)

+12 replies

geloescht

2012-09-20 21:50

User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]

Hallo Gast wer

Danke, hat mich wieder ein Stückchen vorran gebracht:

Code (perl): (dl )

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

Ich müsste jetzt das "@row" splitten, auf die ganzen grünen Skalare. Im Internet hab ich gefunden, wie man ein Skalar auf ein Array splittet. Aber leider nicht umgekehrt:

Code (perl): (dl )

1
2
3

$t="Das hier ist ein Testtext";
@array=split(/ /,$t);
foreach (@array){print "$_\n";}

Das nützt mir aber auch nichts. Ich brauch es anders herum. Kann man statt dessen ein array auf _verschiedene_ Skalare aufsplitten - geht das?

Gruss HP-User
Last edited: 2012-09-20 22:00:57 +0200 (CEST)

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

+11 replies

2012-09-20 22:02

User since
2003-08-04
12208 Artikel
Admin1

einfach push @$rows, [@row];
oder versteh ich da was falsch?

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

+10 replies

geloescht

2012-09-20 22:33

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 )

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 )

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 )

$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?

+9 replies

2012-09-20 22:38

User since
2003-08-04
12208 Artikel
Admin1

kann sein, dass es die berechnung nicht richtig macht, weil du utf8-daten hast, die aber nicht dekodiert sind? das würde es erklären. ein ö wird dann als 2 bytes gezählt, obwohl es nur 1 character ist.
decodiere die daten mittels Encode::decode_utf8 (oder setze das attribut mysql_enable_utf8 beim connect).
dann speicherst du die ausgabe vom modul in einen string und machst encode_utf8 und gibst ihn aus. alternativ machst du binmode STDOUT, ":encoding(utf-8)" vor der ausgabe.

edit:
also:

Code (perl): (dl )

my $dbh = DBI->connect($dsn, $user, $pass, { mysql_enable_utf8 => 1 });
...
   push @$rows, [@row];
...
binmode STDOUT, ":encoding(utf-8)";
print Text::Table::Tiny::table(rows => $rows, header_row => 1);

Last edited: 2012-09-20 22:40:26 +0200 (CEST)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

+8 replies

geloescht

2012-09-20 22:42

User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]

Hi pq

Das ist mir auch gerade aufgefallen. Wo Umlaute sind, ist ein Versatz drin. Wo mehrere Umlaute sind, ein grösserer Versatz. Das müsste das Problem hier sein. Ich probier zu decodieren. Melde mich wieder, wenn ich es geschafft habe - D A N K E :-)

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

+7 replies

geloescht

2012-09-20 23:44

User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]

HI an alle

Ich habe encodig verwendet:

Code (perl): (dl )

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]

Jetzt stimmt die Tabelle, aber aus Müller wird "MÄ1/4ller".
Im Perl:

Code (perl): (dl )

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

binmode STDOUT, ":encoding(utf-8)";
print Text::Table::Tiny::table(rows => $rows, header_row => 1);
print " \n";

Ich glaube das man das nicht perlseitig beheben kann, sondern dass das Modul fehlerhaft ist.
Das Modul müsste Umlaute automatisch richtig berücksichtigen. Ist das Text::Table besser? Ich habe auch schon was über Text::ASCII gelesen.

OK, Schluss für heute. Muss Morgen wieder früh raus.
Resümee für heute:
- Modul Text::Table::Tiny installiert...
- Eine halbwegs brauchbare Tabellenlösung für die Ausgabe...
- Ein Umlauteproblem entdeckt...

So what - Morgen ist auch noch ein Tag

Danke allerseits und gute Nacht

von HP-User

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

+6 replies

topeg

2012-09-21 00:01

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Erst von UTF-8 in die Perl interne Kodierung und dann zurück nach UTF-8.

Code (perl): (dl )

use strict;
use warnings;
use Encode;
binmode STDOUT, ":encoding(UTF-8)";

# ...

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

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

+5 replies

geloescht

2012-09-21 22:54

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 )

+----------+----------+----------+---------------+--------------+-------+---------------+--------+-------------------+-----------+---------+--------------------+
| 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 )

+-----------------------------------------------------+ 
| 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 )

###################################################################
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?

+2 replies
topeg

2012-09-21 23:30

User since
2006-07-10
2611 Artikel
BenutzerIn

Am Anfang use utf8; und den Code als UTF-8 speichern. Das sollte das Problem beheben.

"use utf8;" sagt Perl das der nachfolgende Code UTF-8 kodiert ist. Dann konvertiert perl die Umlaute korrekt, sofern es wirklich UTF-8 ist. Aber ohne BOM speichern, sonst funktioniert das Shebang nicht mehr.
- geloescht
  
  2012-09-22 08:14
  
  User since
  2012-06-19
  141 Artikel
  BenutzerIn
  
  Hi topeg
  
  Kurzmeldung: Es funktioniert!!!
  
  Jetzt weiss ich, warum ich bisher keine Terminalausgabe benutzt habe *g*
  
  Nein, wirklich vielen, vielen Dank! Zu der utf-8-Geschichte schreib ich bei pq noch was.
  
  Merci HP-User
  Last edited: 2012-09-22 08:27:36 +0200 (CEST)
  Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
+2 replies
pq

2012-09-22 00:01

User since
2003-08-04
12208 Artikel
Admin1

dazu unbedingt mal http://perlgeek.de/de/artikel/charsets-unicode lesen =)
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- geloescht
  
  2012-09-22 08:26
  User since
  2012-06-19
  141 Artikel
  BenutzerIn
  Hi pq,
  
  Genau diesen Text hab ich mir gestern in der Firma ausgedruckt - volle 9 Seiten! Und ich hab es zig mal durchgelesen. Schon erstaunlich, dass Perl die Standart-Daten über Tastatur und die Ausgaben im Programm anders behandelt, als Ein- und Ausgaben von einer Datei.
  
  Ich muss gestehen, dass ich solche Probleme bei webseitiger Nutzung nie hatte. Ich habe dort stur immer alles in utf-8 gespeichert (Perl und CSV-Dateien. Bei Perl stand immer use Encode im Kopf, und bei html-Ausgabe das:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  print CGI->header('text/html'); print <<"ENDE"; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  
  Mit dem Header und der Browsercodierung hatte ich nie Probleme mit Sonderzeichen und Umlauten. Selbst bei professionellen Firmen sieht man oft ein Fragezeichen in einer Raute, weil die Umlaute falsch codiert sind. Ich lächelte immer darüber und hab mich gefragt, wie denn "Profis" so was passieren kann. Nun, wenn ich mir meinen Thread hier für die Terminalausgabe anschaue, bin ich ganz schnell wieder ruhig ;-)
  
  Deren Probleme waren wahrscheinlich gerade anders herum. Als Terminal-Neulingsbenutzer möchte ich noch sagen, dass ich es ungemein schwieriger finde, gestaltungstechnisch dort was zu erreichen. Ich finde im Browser ist es einfacher - für mich jedenfalls (html/css/cgi/ssi). Im Terminal hab ich jetzt sogar ein extra Modul benötigt, um einen Text in Tabellenform auszugeben.
  
  So long - Jetzt gibt es erstmal den Frühstückskaffe, und dann muss ich zusehen, dass die restlichen Menüpunke in meinem Verwaltungsprogramm mit Funktion befüllt werden - Danke nochmal auch an dich pq
  
  Viele Grüsse HP-User
  Last edited: 2012-09-22 08:30:24 +0200 (CEST)
  Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

View all threads created 2012-09-20 18:20.