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

use Win32::ODBC;
 %drivers = Win32::ODBC::Drivers();
 local $" = ", ";
 foreach $driver (sort keys %drivers){
    @attributes = split (/;/,$drivers{$driver});
    print "Driver = $driver\n";
    print "@attributes\n\n";
 }