#!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";
Einsendeaufgabe Nr. 2 // CGP02
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:
'."\n".
''."\n".
'
'."\n".
' | Quartal | Umsatz |
|---|
';
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 '';