| listdsns: Lists available data sources |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| #!/usr/bin/perl
-w |
|||||||||||||
| ### Load
DBI |
|||||||||||||
| use DBI; |
|||||||||||||
| ###
Probe DBI for the installed drivers |
|||||||||||||
| @drivers
= DBI->available_drivers(); |
|||||||||||||
| ###
Iterate through the drivers and list the data |
|||||||||||||
| ###
sources for each one |
|||||||||||||
| foreach
$driver ( @drivers ) { |
|||||||||||||
| print "Driver: $driver\n"; |
|||||||||||||
| @dataSources = DBI->data_sources(
$driver ); |
|||||||||||||
| foreach $dataSource ( @dataSources ) { |
|||||||||||||
| print "\tData Source is
$dataSource\n"; |
|||||||||||||
| } |
|||||||||||||
| print "\n"; |
|||||||||||||
| } |
|||||||||||||
| exit; |
|||||||||||||
| 32 |