🚀 go-pugleaf

Hallo,


Voor mijn thesisproject (ik ben laatstejaars lic. Handelswetenschappen optie
Management en IT) maak ik een website waar bezoekers hun aandelenkoers
kunnen volgen en ratioanalyse hiervan kunnen raadplegen.
Ik maak gebruik van perl en mysql vanzelfsprekend in een unix omgeving
(linux).
Voor de grafieken maak ik gebruik van voorgebouwde libs GD, gifGraph enz.

Momenteel zit ik al een tijdje te zoeken op een hardnekkige syntaxfout die
in het volgende perl-script zit. Ik zelf ben van opleiding uit niet zo
programmeertechnisch aangelegd om zo op het zicht fouten eruit te halen.
Waar de fout zit staat staat in de commentaar.

#!/usr/bin/perl -w
use CGI;
use GIFgraph::lines;
use DBI;

# Create an instance of CGI
$query = new CGI;

# connectie naar de DB
$dbh = DBI->connect('dbi:mysql:test', 'root', 'localhost');

# Arrays voor de data uit de table
my @day;
my @stock;

# sql query naar de DB
$sql = "SELECT day,stock FROM lh";

# voorbereiding
$sth = $dbh->prepare($sql);

# voer de query uit
$sth->execute;

# hier zit ergens een syntaxfout
while ($row = $sth->fetch_arrayref)
{
    ($day, $stock) = @($row);
    push @day, $day;
    push @stock, $stock;
}

# gedaan
$sth->finish;

# data array maken
@data = (\@day, \@stock);

# MIME header voor de browser
print $query->header(-type => "image/gif");

# het graph object aanmaken
$graph = new GIFgraph::lines;

# de grafiek tekenen
print $graph->plot(\@data);

# afkoppelen van DB
$dbh->disconnect;



Op de commandline kreeg ik devolgende foutmelding:

Script started on Fri Jan 12 16:59:55 2001
[root@franky cgi-bin]# perl test28dec.pl
Scalar found where operator expected at test28dec.pl line 28, at end of line
 (Missing operator before ?)
syntax error at test28dec.pl line 28, near "@($row"
Execution of test28dec.pl aborted due to compilation errors.
[root@franky cgi-bin]# exit
Script done on Fri Jan 12 17:00:20 2001



Heeft iemand enig idee wat er fout aan het lopen is in dit script?


Bedankt allemaal alvast op voorhand!!!


greetz

Franky

www.franksite.net