data_sources()
DBI->data_sources([driver, \%attri])
This function returns a list of databases associated with a
given driver. If none is specified, the driver named in the
environment variable DBI_DRIVER is used. Attributes
may be given as a second argument. Here is an example:
...
my @drivers = DBI->available_drivers();
|| die "No drivers found.";
foreach my $driver(@drivers) {
my @sources = DBI->data_sources($driver);
foreach my $source(@sources) {
print "$driver: $source\n";
}
}