Perl + MySQL = error 500

[petterk]

Hei, lager et enkelt Perl script som kobler seg til en MySQL database og printer ut data fra en tabell jeg har kalt "samples". Scriptet ser slik ut:

#!/usr/bin/perl
 use strict;
 use warnings;
 use DBI;
 print "Content-type: text/html ";
 
 $dbh = DBI->connect('dbi:mysql:database','bruker','passord')
 or die "Connection Error: $DBI::errstr\n";
 $sql = "select * from samples";
 $sth = $dbh->prepare($sql);
 $sth->execute
 or die "SQL Error: $DBI::errstr\n";
 while (@row = $sth->fetchrow_array) {
 print "@row\n";
 }  

Men får error 500 uansett hvordan jeg gjør dette. Har selvfølgelig riktig bruker og passord i scriptet og chmod 755 på scriptet.

[PRO ISP Jon Eivind]

Hei petterk, Har du forsøkt å gjøre som her: PRO ISP - Ofte stilte spørsmål ?

[petterk]

Sitat

Hei petterk, Har du forsøkt å gjøre som her: PRO ISP - Ofte stilte spørsmål ?

Det har jeg prøvd, men ettersom jeg ikke har DBI-modulen installert lokalt, får jeg kun feilmelding om denne. Ellers ingen andre feilmeldinger. Heller ingenting i cPanel error-log'en.

[petterk]

Skrev om hele scriptet og fikk det til å fungere. Litt av problemet var at jeg glemte å definere variablene som "my" når jeg bruker "strict."

[PRO ISP Jon Eivind]

Hei petterk, Flott! Takk for oppdateringen