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";
}
常见问题
相关文章
猜你喜欢
- 批量下载书籍，慎用 2015-12-14
- simple http proxy 2015-12-14
- perl爬虫收集当前页面所以链接地址，不需要用HTML::LinkExtor模块 2015-12-14
- 使用perl socket 在WINDOWS DHCP服务上 实现ip绑定 2015-12-14
- sort 自定义函数排序 2015-12-14
- 查找重复文件 2015-12-14
- 结合Zabbix做MySQL相关性能参数 2015-12-14
- perl 等待打点功能实现。休闲代码：） 2015-12-14
- Perl 一个简单的 GUI 程序，有退出按钮 2015-12-14
- Perl 调用 SetAttributes 修改文件属性 （Windows） 2015-12-14
