I'm going to make a few suggestions to you. You are not constructing your array in the way GD::Graph expects, but there are some other things that I hope you'll listen to.

The first is to make sure you use strict; That will tell you if this is failing for some silly reason like having mis-typed "data". It's going to force you to go back and make sure all of your variables are initialized with my but that's a good thing.

OK, now with that out of the way, let's see what is wrong with your @data array. If you check the documentation for GD::Graph you'll see that the plot method requires that your data be sent as a list of anonymous arrays. Doing a my @data = (@a, @b); has the effect of concatinating the arrays together. What you actually want to do is construct a list of array references like this: my @data = (\@a, \@b);

To see why this does what you want and why your print test should have clued you into this see my sample code at the end.

One more nit to pick first though! You are mixing functional calls and methods in your code. Don't do that! It's confusing and my not even work with all modules (like the crappy ones I write! :) ). If you like methods be consistent and say my $graph = GD::Graph::lines3d->new(600,400); or whatever the format is. It may not be a big deal in the big scheme of things, but consistency always pays off for a programmer.

Good luck and check out my demo code at the end for clarification,
{NULE}
--
http://www.nule.org

Can't call method "png" on an undefined value at ./graph.pl line 35.
[download]

#!/usr/bin/perl -w
use GD::Graph::lines3d;
use DBI;

$sql = "select day, count(day) as day_total from tec_event_data where 
+month='Feb' group by day order by day asc";

$db = DBI->connect('dbi:Oracle:tec.world','tec','tectec') or die "Unab
+le to connect: $DBI::errstr";
$sth = $db->prepare( $sql );
$sth->execute;

while (($day,$events) = $sth->fetchrow_array) {
        push (@days, $day);
        push (@events, $events);
}
$sth->finish;

my @data = (@days,@events);

#for ($x=0;$x<=$#data;$x++) {
#       print "$data[$x]\n";
#}

$graph = new GD::Graph::lines3d( 600, 400 );
$graph->set(
        x_label         => 'Months',
        y_label         => 'Number of Events',
        title           => 'Monthly Events by Day'
);

$gd = $graph->plot( \@data );
$format = $graph->export_format;

open (IMG, ">/usr/tivoli/TSE/httpd/docs/images/test.$format") or die $
+!;
        binmode IMG;
        print IMG $gd->$format();
close IMG;
$db->disconnect;
[download]

Found what the problem was...since I am just learning this, I was using an example to get started, when I was pushing my information into the @data array, the format needed to be as follows,

my @data = ([@days],[@events]);
[download]

Worked fine after that. Liquid