#!/usr/bin/perl use strict; use DBI; my @drivers; @drivers = DBI->available_drivers; foreach my $driver (@drivers) { print "$driver driver is available\n"; my @dsns = DBI->data_sources($driver); foreach my $dsn (@dsns) { print "\tDSN: $dsn\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
