Bekomme beim Auslesen von 5 Tagen der Arbeitsstunden, leider nur Mon Dien und Mitt angezeigt. Warum? Bitte um Hilfe.Die db_grafik ist so aufgebaut:
Mon,Dien,Mitt,Donn,Frei
8,9,7,9,7
Das Script:
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use GD::Graph::pie;
use DBI;
my $DBH;
my $STH;
### Datenbankverbindung ###
$DBH = DBI->connect("DBI:CSV:db_grafik=c:/xampp/cgi-bin")
or die "Konnte keine Verbindung zur Datenbank herstellen!$!\n";
$STH = $DBH->prepare("SELECT * FROM db_grafik")
or die "Konnte SQL-Statement nicht bereitstellen!$!\n";
$STH->execute()
or die "Ausfuehren nicht moeglich!$!\n";
my @werte;
my @res;
### Werte werden zeilenweise ausgelesen ####
while (@werte = $STH->fetchrow_array()) {
push @res, @werte;
}
$STH->finish();
$DBH->disconnect;
use constant TITLE => "Arbeitsstunden";
my $q = new CGI;
my $graph = new GD::Graph::pie( 300, 300 );
my @data = (
[ qw( Mon Dien Mitt Donn Frei ) ],
[$res[0], $res[1], $res[2]], [$res[3], $res[4]]
);
$graph->set(
title => TITLE,
'3d' => 1
);
my $gd_image = $graph->plot( \@data );
print $q->header( -type => "image/png", -expires => "-1d" );
binmode STDOUT;
print $gd_image->png;
Datum: 11.05.2009-19:37
Tortendiagramm aus CSV-Datenbank
