Perl: Newbie: script liefert keine Ausgabe


Deletemaster

Erfahrenes Mitglied
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:
#!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
 

Deletemaster

Erfahrenes Mitglied
Die Zugriffsrechte fehlten.

Der Code:
Code:
#!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.