Hallo zusammen,
ich setze mich seit einiger Zeit mit Perl auseinander und stehe nun vor dem Problem, dass ich eine Datenbank als CSV-Datei vorliegen habe, diese auf eine Website eingebunden habe und nun diese Werte als Tortendiagramm mit GD darstellen möchte.
Einlesen der CSV-Datei und Ausgabe als HTML:
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
#!/usr/bin/perl -w
$TITLE="Einlesen";
print "Content-type: text/html\n\n";
open(EINGABE, "<daten.csv") || die;
print "<html>\n<head>\n<title>$TITLE</title>\n</head>\n<body bgcolor=\"#ffffff\">\n\n";
print "<h1 align=\"center\">$TITLE</h1>\n<hr />\n\n";
print "<table border=\"2\" cellpadding=\"3\" cellspacing=\"1\">\n";
$header = <EINGABE>;
@zeile = split(";", $header);
print "<tr>";
foreach $zeile (@zeile) {
print "<th bgcolor=\"#ffffff\">$zeile</th>";
}
print "</tr>\n";
@tabelle = sort(<EINGABE>);
foreach $zeile (@tabelle) {
@zeile2 = split(";", $zeile);
print "<tr>";
foreach $zeile2 (@zeile2) {
print "<td bgcolor=\"#ffffff\">$zeile2</td>";
}
print "</tr>\n";
}
print "</table>\n</form>\n\n</body>\n</html>\n";
close(EINGABE);
Beispiel der CSV-Datenbank:
"Monat";"Umsatz"
"Jan 2006";50
"Feb 2006";80
"Mrz 2006";85
"Apr 2006";90
"Mai 2006";78
"Jun 2006";69
"Jul 2006";65
"Aug 2006";20
"Sep 2006";25
"Okt 2006";60
"Nov 2006";65
"Dez 2006";68
Hat jemand eine Idee, wie ich die Daten grafisch darstellen kann?
Bin für jeden Tipp mega dankbar!
Gruß
Thomas