Bon ca a changé, ca donne ca maintenant mais le probleme reste entier... snif!

#!C:/Perl/bin/perl.exe

use DBI;

# liste des drivers présents :
my @driver_names = DBI->available_drivers;
my @data_sources = DBI->data_sources("mysql", \%attr);

my $nbDriver = @driver_names;

print "Nombre de driver presents : $nbDriver\n";
foreach my $un_driver (@driver_names){
print "\nle driver: $un_driver\n";
eval { @data_sources = DBI->data_sources($un_driver);}; print "probleme avec ce driver ($un_driver)\n" if $@;
foreach my $un_db (@data_sources){
print " database: $un_db\n";
}
@data_sources =();
}