mysql query tabellarisch ausgeben (gelöst) (Datenbanken und Verzeichnisdienste)

[thread]17798[/thread]

mysql query tabellarisch ausgeben [gelöst]

Tags: perl5 DBI MySQL printf Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+4 replies
thoss51

2012-09-30 17:54
User since
2012-09-30
2 Artikel
BenutzerIn
Guten Tag,
ich habe ein Problem mit der Ausgabe von printf auf STDOUT.

Ich habe ein Perl Skript geschrieben, das mit Daten aus einer MySQL Datenbank abfragt (DBI) und als Tabelle ausgibt. Dazu benutzt das Skript eine eigene Funktion, die die Breite der einzelnen Spalten ermittelt, daraus einen String für Printf erstellt und zusammen mit anderen Werten zurück gibt.
Ein solcher String, in Abhängigkeit von dem jeweiligen Query sieht dann z.B. so aus:
"%-6s | %-6s | %-7s | %-7s | %-16s | %-9s | %-21s | %-3s | %-5s | %-14s | %-13s | %-10s | %-32s | %-9s |\n" (linksbündige Ausgabe, Spaltenbreite des breitesten Spalteneintrags, Spaltentrenner " | " )

Er wird in der Variablen $wert gespeichert und dann folgendermaßen zum zeilenweisen Ausgeben der Abfragergebnisse verwendet:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

my $anzahl; while (my @row =$sth->fetchrow_array) { foreach (@row) { $_ = "" unless defined $_; } my $wert = @$werte[0]; printf "$wert",@row; ++$anzahl; }
Jetzt zu meinem Problem:
Es klappt alles ganz prima, solange in den einzelnen Zeilen keine Sonderzeichen (öäüß) vorkommen. Sobald diese vorkommen wird die Spaltenbreite in dieser Zeile verkürzt und zwar genau um soviel Stellen, wie der Eintrag Sonderzeichen enthält.
Hätte ich ein Feld, das %-16s formatiert ist und hätte 2 Sonderzeichen darin, dann ist die Spalte in dieser Zeile nur noch 14 Zeichen breit.

Hat jemand von Euch eine Idee, was ich machen kann um das zu ändern?

So long
Thomas
Last edited: 2012-09-30 17:59:47 +0200 (CEST)
- +3 replies
- pq
  
  2012-09-30 18:09
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das problem hatten wir hier vor kurzem ganz ähnlich schonmal.
  sehr wahrscheinlich ist, dass du die daten in utf8 vorliegen, aber nicht dekodiert.
  dazu müsstest du uns ein paar informationen geben.
  am besten einen einzelnen string mit umlauten mal folgendermassen ausgeben:
  
  Code (perl): (dl )
  
  1 2
  
  use Devel::Peek; Dump $string;
  
  an der ausgabe siehst du in der regel, ob der string utf-8kodiert ist oder nicht.
  
  hier 2 beispiele:
  
  utf8, nicht dekodiert:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  perl -wE' use Devel::Peek; my @rows = ( ["foo","bär","baz"], ["foo","bar","baz"], ); Dump $rows[0]->[1]; for my $row (@rows) { printf "%-6s | %-6s | %-6s\n", @$row }' SV = PV(0xda5c98) at 0xda7b98 REFCNT = 1 FLAGS = (POK,pPOK) PV = 0xdce050 "b\303\244r"\0 CUR = 4 LEN = 8 foo | bär | baz foo | bar | baz
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  perl -wE' use Devel::Peek; use utf8; # strings direkt im skript werden automatisch dekodiert binmode STDOUT, ":encoding(utf-8)"; my @rows = ( ["foo","bär","baz"], ["foo","bar","baz"], ); Dump $rows[0]->[1]; for my $row (@rows) { printf "%-6s | %-6s | %-6s\n", @$row }' SV = PV(0x15a8298) at 0x15a3d28 REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x15a10b0 "b\303\244r"\0 [UTF8 "b\x{e4}r"] CUR = 4 LEN = 8 foo | bär | baz foo | bar | baz
  
  du siehst, dass das ä im ersten beispiel als \303\244 hinterlegt ist. damit zählt es als 2 bytes. im 2. beispiel ist es \x{e4} und wird als 1 character gezählt.
  
  siehe auch http://perlgeek.de/de/artikel/charsets-unicode
  
  edit: in mysql kann man in den optionen beim connect die option mysql_enable_utf8 angeben, dann werden die daten automatisch dekodiert, sofern die entsprechenden tabellen/columns richtig deklariert sind. ansonsten musst du das selber mit Encode::decode_utf8() machen.
  Last edited: 2012-09-30 18:12:21 +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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - thoss51
    
    2012-10-01 11:48
    
    User since
    2012-09-30
    2 Artikel
    BenutzerIn
    
    vielen Dank. Das war hilfreich. Ich habe es in 2 Schritten geschafft:
    1. Option mysql_enable_utf8 bei connect
    2. use encoding ':locale';
    
    Alles läuft jetzt wunschgemäß.
    Nochmals Danke
    Thomas
    
    PS - kann ich den thread irgendwie als "gelöst" markieren??
    - pq
      
      2012-10-01 11:59
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2012-10-01T09:48:38 thoss51
      PS - kann ich den thread irgendwie als "gelöst" markieren??
      
      ja, schau mal, da ist so ein grüner haken oben unter dem titel, einfach anklicken =)
      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

View all threads created 2012-09-30 17:54.