🚀 go-pugleaf

hallo,

ben op de sukkel met het onderstaand perl-cgi scriptje. Ik krijg het maar
niet gedebugged. Dat ligt natuurlijk aan het feit dat ik niet echt een
programmeerachtergrond heb en dus te weinig ervaring.

Heeft iemand van jullie enig idee waar mijn fout kan zitten?
Ik krijg deze foutenboodschap steeds terug:

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
syntax error at /home/httpd/cgi-bin/ticklook.pl line 16, near
"$ticker{$name}=$value;"
  (Might be a runaway multi-line ;; string starting on line 15)
Execution of /home/httpd/cgi-bin/ticklook.pl aborted due to compilation
errors (#1)

    (F) The final summary message when a Perl compilation fails.

Uncaught exception from user code:
 Execution of /home/httpd/cgi-bin/ticklook.pl aborted due to compilation
errors.
[Tue May 29 22:00:55 2001] [error] [client 127.0.0.1] Premature end of
script headers: /home/httpd/cgi-bin/ticklook.pl
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


Dit is het script waarin de fout ergens zou steken rond line 15-16. Ik denk
dat de fout dus absoluut ergens moet zitten waar ik de form input ontleed.
Het script werkt wel met een hardcoded variabele $ticker.



#!/usr/bin/perl -w

use CGI;
use DBI;
use diagnostics;
use Data::Dumper;


read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair(@pairs)
{
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eq;
$ticker{$name}=$value;
}

$dbh=DBI->connect('dbi:mysql:test', 'root', 'anneleen');


$company=&find_company($ticker{'veldnaam'});

      if ($company eq "notfound")
{
print qq{<p>help</p>};
}
       else
{
&do_for_company($company);
}


###################
#
# eerste subroutine
#
###################

sub find_company

{
    $ticker{'veldnaam'}=shift;

    $findcompsql="select comp from ticklist where
sym=\"$ticker{'veldnaam'}\"";

    $sth2=$dbh->prepare($findcompsql);

    $sth2->execute;

        if
 (@comp_res=$sth2->fetchrow_array)
 {
     $company=$comp_res[0];
 }
        else
        {
       $sth2->finish ();
       return "notfound";
 }
    $sth2->finish ();
    return $company;
}

######################
#
# Tweede subroutine
#
#####################


sub do_for_company
{
    $comp=shift;
    $sql="SELECT max(date) FROM $comp";

    $sth=$dbh->prepare($sql);
    $sth->execute;
    $date= ($sth->fetchrow_array ())[0];
    $sth->finish ();

    $sql2="SELECT * from $comp WHERE date = '$date'";
    $sth=$dbh->prepare($sql2);
    $sth->execute ();
    if (@rows=$sth->fetchrow_array)
    {
 $datum=$rows[2];
 print qq{$datum};
    }
    $sth->finish ();
}


$dbh->disconnect;





Hopelijk kan iemand mij uit mijn lijden verlossen!

Bedankt alvast!


greetz

Frank

website: www.franksite.net