清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

#!/usr/bin/perl

use strict;
use DBI;

my @drivers;
@drivers = DBI->available_drivers();

foreach my $dbd (@drivers) {
  print "$dbd driver is available\n";
}

exit;