#!/usr/bin/perl -w use strict; use DBI; #probe DBI for available drivers my @drivers = DBI->available_drivers(); ##iterate through drivers and list the data source for each one foreach my $driver (@drivers) { print "Driver: $driver\n"; my @datasources = DBI->data_sources($driver); foreach my $datasource (@datasources) { print "\tData Source is $datasource\n"; } print "\n"; } exit;
Driver: ExampleP Data Source is dbi:ExampleP:dir=. Driver: Multiplex Driver: Proxy
In reply to DBD Drivers query by costas
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |