For a recent customer service data project, I needed several GD::Graphs and simply duplicated my call to individual code for each graph:
print "<img src=http://www.url.com/cgi/custsvcgr.pl>";
Replicate the above link for each graph needed. Each graph can then be customized by code, for example:
#!/usr/bin/perl -w
use GD::Graph::bars;
...get data here...
my $mygraph = GD::Graph::bars->new( 600, 350 );
$mygraph->set( dclrs => [qw(green pink blue cyan)] );
$mygraph->set(
x_label => 'Section',
y_label => 'Satisfaction',
title => 'Customer Service By Question',
bar_spacing => '5',
)
or warn $mygraph->error;
my $myimage = $mygraph->plot( \@graph )->png;
print "Content-type: image/png\n\n";
print $myimage;
I think you will find other examples similiar to this one with a super search.
SciDude
The first dog barks... all other dogs bark at the first dog.
|