Database Perl

  1. Home
  2. Perl
  3. Database
  4. Listing Currently Installed Drivers
#!/usr/bin/perl
use strict;
use DBI;
my @drivers;
@drivers = DBI->available_drivers();
foreach my $dbd (@drivers) {
  print "$dbd driver is available\n";
}
exit;