Newbie -Keine Ausgabe bei mysql-query - #118009 (Datenbanken und Verzeichnisdienste)

deletemast

2009-01-15 09:34

User since
2009-01-14
23 Artikel
BenutzerIn
[default_avatar]

ich habe

Code (perl): (dl )

use strict;

verwendet.
ich erhalte als Ausgabe lediglich:
vorhandene Datenquellen:
eigentlich müsste hier doch wenigstens ein Datenbankname erscheinen oder?

Code (perl): (dl )

#!C:/Perl/bin/perl.exe -w
# dbi2.pl vorhandene Datenbanktreiber
use strict;
use warnings;
use DBI;
use CGI;
my $q = CGI->new();
#print "Content-type: text/html\n\n";
print $q->header();
my $driver = "mysql";
my @sources = DBI ->data_sources($driver); 
print "vorhandene Datenquellen:<br>";
foreach (@sources){
print "$_<br>";
}