14 lines
179 B
Perl
14 lines
179 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use DBI;
|
||
|
|
|
||
|
|
my @drivers;
|
||
|
|
@drivers = DBI->available_drivers();
|
||
|
|
|
||
|
|
foreach my $dbd (@drivers) {
|
||
|
|
print "$dbd driver is available\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
exit;
|