Available DBI Drivers and Data Sources : DBI « Database « Perl






  1. Perl
  2. Database
  3. DBI

Available DBI Drivers and Data Sources

   

#!/usr/bin/perl
use warnings;
use strict;
use DBI;

my @drivers=DBI->available_drivers('quiet');
my @sources;
foreach my $driver (@drivers) {
    print "$driver\n";
    @sources=eval { 
        DBI->data_sources($driver) 
    };
    if ($@) {
        print "\tError: ",substr($@,0,60),"\n";
    } elsif (@sources) {
        foreach (@sources) {
            print "\t$_\n";
        }
    } else {
        print "\tNo known data sources\n";
    }
}








Related examples in the same category

1.Listing Currently Installed Drivers
2.Listing Valid DSNs
3.Talking with the Database
4.The connect() Method
5.Use DBI to connect to a database
6.Connect to Oracle
7.Connect to mysql
8.Binding Columns