#!\usr\bin\perl
use warnings;
use strict;
use DBI;
my $dbh=DBI->connect('dbi:mysql:test','root','password') || die "Error opening database: $DBI::errstr\n";
print "Hello\n";
$dbh->disconnect || die "Failed to disconnect\n";
print "Goodbye\n";
常见问题
相关文章
猜你喜欢
- About Matrix 2015-12-14
- 2个线程间的对话，有点耳熟，有点忧郁 2015-12-14
- 遍历当前目录 2015-12-14
- perl 删除过期文件 2015-12-14
- 遍历目录下所有的文件 2015-12-14
- perl读取excel文件内容 2015-12-14
- 冒泡排序 2015-12-14
- 根据使用频率输出dmenu的结果 2015-12-14
- Perl 数据库事务处理（提交和回滚） 2015-12-14
- Perl 根据 Windows 的错误码获取详细的描述信息 2015-12-14
