Mega Code Archive

 

Categories / Perl / Win32

 

Getting the ODBC Drivers

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";  }