Thread Daten aus csv-Datei in html-Tabelle ausgeben (10 answers)
Opened by Stefan2000 at 2015-01-14 11:01

Stefan2000
 2015-01-14 11:01
#179226 #179226
User since
2015-01-14
1 Artikel
BenutzerIn
[default_avatar]
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)

View full thread Daten aus csv-Datei in html-Tabelle ausgeben