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