返回顶部

收藏

Perl 列举所有的 ODBC 驱动程序

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

#该片段来自于http://outofmemory.cn

标签:perl,数据库

收藏

0人收藏

支持

0

反对

0

发表评论