#!/usr/bin/perl -w use DBI; use DBD::Chart; $dbh = DBI->connect('dbi:Chart:'); $dbh->do('create table stackbar (name varchar(10), y1 integer, y2 inte +ger, y3 integer, y4 integer)'); $sth = $dbh->prepare('insert into stackbar values(?, ?, ?, ?, ?)'); $sth->execute('foo', 20, 30, 50, 80); $sth->execute('bar', 30, 40, 70, 90); $sth = $dbh->prepare("select barchart from stackbar where WIDTH=500 AND HEIGHT=500 AND X_AXIS='Some Domain' AND Y_AXIS='Some Range' AND TITLE='Stacked Barchart Test' AND FORMAT='PNG' AND STACK=1 AND SHOWVALUES=1 AND COLORS IN ('green', 'yellow', 'red', 'blue')"); $sth->execute; $row = $sth->fetchrow_arrayref; open(OUTF, ">badfloatbar.png"); binmode OUTF; print OUTF $$row[0]; close OUTF; $sth->finish; $dbh->disconnect;
In reply to Re: DBD::Chart: unable to create a 3 levels stacked barchart
by renodino
in thread DBD::Chart: unable to create a 3 levels stacked barchart
by piso
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |