hallo zusammen
Ich wollte bei meinem cgi-Skript auf eine Datenbank zugreiffen und irgendwie klappt das aber nicht.
Folgende Fehlermeldung:
Global symbol "$dbh" requires explicit package name at C:/Programme/Apache Group/Apache2/cgi-bin/dbTest1.pl line 14.
Execution of C:/Programme/Apache Group/Apache2/cgi-bin/dbTest1.pl aborted due to compilation errors.
Mein Test-Skript sieht folgendermassen aus:
#!C:\Programme\perl\bin\perl.exe -w
use strict;
use CGI qw(param url);
use CGI::Carp qw(fatalsToBrowser);
use File::Copy;
use DBI; ## Modul für Datenbank
my $url = url();
print "Content-type: text/html\n\n";
print "Dies ist ein Test für die Verwendung von MySQL";
$dbh = db_open("TestDB", "root", "");
sub db_open {
my ($db, $user, $passwort) = @_;
my $dsn = "DBI:mysql:database=$db";
my $dbh = DBI->connect($dsn, $user, $passwort);
if (defined($dbh) and $dbh ne ""){
return $dbh;
} else {
("Verbindung zur Datenbank konnte nicht hergestellt werden: \n$DBI::errstr");
}
}
Besten Dank für jegliche Hilfe und Kommentare
Gruss
Thomas