Hallo Freunde,

beschäftige mich seit kurzem erst mit Perl und veruche die ersten Beispiel-scripte umzusetzen.
Packages installieren usw.
Ich habe nun ein kleines script welches vorhandene Datenquellen für den mysql-driver ausgeben soll.
mysql ist installiert
DBI-mysql ist installiert
vorhandene Treiber werden ausgegeben
Db mit Tabelle und Daten existieren und werden von query ausgegeben. Nur die vorhandenen Datenquellen werden nicht angezeigt:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!C:\Perl\bin\perl.exe -w # dbi3.pl vorhandene Datenquellen   use DBI();   print "Content-type: text/html\n\n"; $driver = "mysql";   my @sources = DBI->data_sources("mysql", {"127.0.0.1" =>$host, "3306" => $port}); @sources = DBI->data_sources($driver); print "vorhandene Datenquellen:<br>"; foreach (@sources) { print "$_<br>"; }

Könnt ihr mir sagen was fehlt? Oder warum ich in der HTML-Ausgabe lediglich die Ausgabe erhalte:
vorhandene Datenquellen:

Danke für Eure Antwort

Die Zugriffsrechte fehlten.

Der Code:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!C:\Perl\bin\perl.exe -w # dbi3.pl vorhandene Datenquellen   use strict; use warnings; use DBI; use CGI;   print "Content-type: text/html\n\n";   my $host = '127.0.0.1'; my $port = '3306'; my $user = 'root'; my $pass = '';   my @databases = DBI->data_sources("mysql", {"host" => $host, "port" => $port, "user" => $user, password => $pass});     print "<b>vorhandene Datenquellen:</b> <br> <br>"; foreach (@databases){ print "$_<br>"; }

bringt die gewünschte Ausgabe.