8 lines
230 B
Perl
8 lines
230 B
Perl
|
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";
|
||
|
|
}
|