Mega Code Archive

 

Categories / Perl / Database

 

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;