Perl + MySQL = error 500

5 innlegg i emnet

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.

Del dette innlegget


Lenke til innlegg
Del på andre sider
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.

Del dette innlegget


Lenke til innlegg
Del på andre sider

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."

Del dette innlegget


Lenke til innlegg
Del på andre sider

Hei petterk, Flott! Takk for oppdateringen :)

Del dette innlegget


Lenke til innlegg
Del på andre sider

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!


Start en konto

Logg inn

Har du allerede en konto? Logg inn her.


Logg inn nå