Daten aus csv-Datei in html-Tabelle ausgeben (Perl/CGI)

[thread]19461[/thread]

Daten aus csv-Datei in html-Tabelle ausgeben

Tags: perl5 CGI Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+11 replies
Stefan2000

2015-01-14 11:01
User since
2015-01-14
1 Artikel
BenutzerIn
Hallo,

wie kann ich es hinbekommen, dass die Zahlen aus meiner csv-Datei nicht so:
Code: (dl )

1 2 3 4

|Quartal |Umsatz| |--------|------| |3;105 | | |--------|------|
also 3;105 in einer Zelle,
sondern aufgeteilt in die jeweilige Spalte ausgegeben werden?
Code: (dl )

1 2 3 4

|Quartal |Umsatz| |--------|------| |3 | 105 | |--------|------|
Ich bin absolut unbeholfen in Perl, dies sind meine ersten Gehversuche. Mein Code dazu sieht so aus:
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 52 53 54 55 56 57 58 59 60 61 62 63 64

#!c:\perl64\bin\perl -w # ----------Shebang-Zeile bitte entsprechend einstellen----------------------- use warnings; use strict; use cgi; use GD::Graph::pie; print "Content-type: text/html; charset=iso-8859-1\n\n"; print <<"EOF"; <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Einsendeaufgabe Nr. 2 // CGP02</title> </head> <body> EOF use DBI; my $db = DBI->connect('DBI:CSV:'); if ($db) { $db->{'csv_tables'}->{'daten'} = { 'file' => 'daten.csv'}; my $dbres = $db->prepare("SELECT * FROM daten"); if ($dbres) { $dbres->execute(); print 'Umsatze im Jahr 2014:<br/><br/>'."\n". '<table border>'."\n". '<hr>'."\n". ' <tr><th>Quartal</th><th>Umsatz</th></tr>'; while (my @row = $dbres->fetchrow_array()) { print '<tr><td>'.$row[0].'</td><td>'.$row[1].'</td></tr>'."\n"; } print '</table>'."\n"; $dbres->finish(); } else { print 'Datenbankdatei "daten.csv" wurde nicht gefunden.'; } $db->disconnect(); } else { print 'Datenbankverzeichnis konnte nicht gefunden werden.'; } print '</body></html>';
Bin für jede Hilfe dankbar.
Stefan

modedit Editiert von GwenDragon: Ausgabe und Code umformatiert
Last edited: 2015-01-14 11:48:04 +0100 (CET)
- GwenDragon
  
  2015-01-14 11:46
  
  User since
  2005-01-17
  14532 Artikel
  Admin1
  
  Bitte das nächste Mal die Formatierungshilfe lesen und Ausgaben zwischen [code][/code]sowie Perl-Code zwischen [Perl][/Perl] setzen.
  Last edited: 2015-01-14 11:48:51 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +8 replies
- pq
  
  2015-01-14 12:18
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Schau in der Doku nach.
  Der Default ist das Komma (Comma Separated Values). Du hast offensichtlich Semikolons. Das musst du dem Modul mitteilen. Da das Semikolon im Connect-String eh schon speziell ist, sieht das ganze dann so aus:
  my $db = DBI->connect("DBI:CSV;csv_sep_char=\\;")
  
  vermutlich geht auch nachträglich
  $db->{csv_sep_char} = ';'
  musst du ausprobieren.
  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
  - +7 replies
  - Gast Stefan2000
    
    2015-01-16 08:30
    
    Hallo pq und GwenDragon,
    
    ganz lieben Dank für die schnelle Hilfe. Ich habe sowohl den Modulnamen geändert, als auch den Tipp von pq verwendet. Jetzt funktioniert es.
    
    Ich war ja selbst verwirrt über das Semikolon, heißt steht doch CSV für Comma Separated Values. So hatte ich es jedenfalls gelernt. Wenn ich die Tabelle jedoch in Excel erstelle und als csv abspeichere, so werden automatisch die Semikola gesetzt. Im Internet habe ich dann folgenden Satz gefunden: "... wobei das Trennzeichen nicht zwingend ein Komma sein muss ... weswegen auch die Übersetzung Character Separated Values verwendet wird". So kam das zustande, also vielen Dank auch nicht nur für den Code, sondern auch für die Erklärung.
    
    Bei der nächsten Frage werde ich mich dann vorher in die entsprechende Formatierung einlesen.
    
    Vielen Dank
    Stefan2000
    Last edited: 2015-01-16 09:42:56 +0100 (CET)
    - +6 replies
    - GwenDragon
      
      2015-01-16 09:47
      
      User since
      2005-01-17
      14532 Artikel
      Admin1
      
      Aha, Excel schreibt also das Semicolon vor, was Nutzer bei CSV haben. Seltsam, aber typisch MS.
      Aber nach Standard RFC 4180 ist das Trennzeichen das Komma.
      
      Andere Programme wie LibreOffice oder OpenOffice fragen beim Speichern die Trennzeichen ab.
      Last edited: 2015-01-16 09:50:43 +0100 (CET)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +4 replies
      - Raubtier
        
        2015-01-16 09:54
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        2015-01-16T08:47:09 GwenDragon
        Aha, Excel schreibt also das Semicolon vor, was Nutzer bei CSV haben.
        
        **************
        
        modedit Editiert von GwenDragon: Bitte Verhaltensrichtlinien beachten
        Last edited: 2015-01-16 13:18:08 +0100 (CET)
        
        +3 replies
        
        Linuxer
        
        2015-01-16 10:09
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Naja, nicht ganz.
        
        Wenn ich ein Excel Dokument als CSV speichern will:
        
        Code: (dl )
        
        1 2 3
        
        Datei ->Speichern unter -> Typ: "CSV (Trennzeichen-getrennt) *.csv"
        
        finde ich jedenfalls keine Möglichkeit, das Trennzeichen anzugeben. Excel speichert das dann mit Semikolon als Trennzeichen.
        
        Beim Lesen ist Excel aber in der Lage, den Benutzer das Trennzeichen auswählen zu lassen. Allerdings nicht, wenn die Endung .csv lautet; dann scheint es das Semikolon zu erwarten und öffnet die Datei direkt. Wenn es eine CSV-Datei mit Endung .txt ist, dann erscheint beim "Datei -> Öffnen" der Dialog zur Auswahl der CSV-Parameter (Trennzeichen, Kodierung, Feldbegrenzer ("", '' oder keine), etc.).
        
        Excel hat also einen Hang zum Semikolon.
        Last edited: 2015-01-16 10:10:10 +0100 (CET)
        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!
        
        +2 replies
        
        Raubtier
        
        2015-01-16 10:46
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Google sagt:
        http://office.microsoft.com/de-de/excel-help/impor...
        
        Linuxer
        
        2015-01-16 12:17
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Danke für den Link; also kann Excel das nur indirekt.
        Und die interessanteste Information steht wieder mal am Ende ;-) Wie und wo man das "Listentrennzeichen ändern" kann.
        Das schaut recht gut aus; bei mir nutzt Excel das Semikolon und das ist in den Regionseinstellungen auch so eingetragen.
        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!
      - payx
        
        2015-01-16 10:15
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        2015-01-16T08:47:09 GwenDragon
        Aha, Excel schreibt also das Semicolon vor, was Nutzer bei CSV haben. Seltsam, aber typisch MS.
        Aber nach Standard RFC 4180 ist das Trennzeichen das Komma.
        
        Andere Programme wie LibreOffice oder OpenOffice fragen beim Speichern die Trennzeichen ab.
        
        CSV wird ja manchmal auch als character separated values übersetzt. Unter locales, die das Komma als Dezimaltrenner haben, fällt das Komma als Trennzeichen aus, sobald auch nur eine Zahl mit Nachkommastellen im Datenbestand ist. Wohl deshalb, weil das nicht so sehr selten ist, hat sich das Semikolon in dieser Umgebung in dieser Funktion eingebürgert.
        
        Englisches Excel (oder Excel unter englischem Windows?) macht beim CSV-Export Kommas.
        
        Ich finde es aber natürlich auch besser, wenn die Software, die eine CSV-Datei produziert, die wichtigsten Parameter (Trennzeichen, Quoting von Text und Kodierung) abfragt.
- GwenDragon
  
  2015-01-14 12:18
  User since
  2005-01-17
  14532 Artikel
  Admin1
  1. Fehler bei Modul
  Es muss wohl use CGI; heißen.
  Oder hast du ein eigenes Modul namens cgi geschrieben?
  
  2. Ausgabe des CSV
  CSV bedeutet: Komma-getrennt, DBD::CSV verwendet standardmäßig das auch so.
  Du verwendest wahrscheinlich den ; als Trenner bei Datensätzen. Deswegen musst du dies auch angeben.
  
  Code (perl): (dl )
  
  my $db = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});
  
  Bitte schau dir mal dazu an: https://metacpan.org/pod/DBD::CSV#Creating-a-datab...
  
  Editiert von GwenDragon: Tippfehler
  Last edited: 2015-01-14 12:30:13 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2015-01-14 11:01.