#!"\xampplite\perl\bin\perl.exe "
use warnings;
use strict;
use GD::Graph::bars;
print "Content-type: text/html; charset=iso-8859-1\n\n";
print <<"EOF";
Content-Type:text/html
Einsendeaufgaben zu CGP02 - Aufgabe 2b - von Frank Schmidt
ILS - Webmaster / CGP02 / Aufgabe 2 b
Inhalt einer CSV-Datei mit Zahlenliste in einer HTML-Tabelle über HTTP darstellen
und daraus ein Tortendiagramm mittels GD darstellen.
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
'Datenwerte in der Testdatei "daten.csv":
'."\n".
''."\n".
' | Nummer | Wert |
|---|
';
while (my @row = $dbres->fetchrow_array())
{
print '| '.$row[0].' | '.$row[1].' |
'."\n";
}
print '
'."\n";
$dbres->finish();
}
else
{
print 'Datenbankdatei "daten.csv" wurde nicht gefunden.';
}
$db->disconnect();
}
else
{
print 'Datenbankverzeichnis konnte nicht gefunden werden.';
}
print '';