- 论坛徽章:
- 0
|
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $dsn = "DBI:mysql:ts_zabbix;mysql_socket=/tmp/mysql.sock";
my $dbh = DBI->connect($dsn, 'zabbix', '密码'
) || die "Could not connect to database: $DBI::errstr";
# (insert query examples here...)
my $sql = qq{select hostid from hosts};
my $sth=$dbh->prepare($sql);
$sth->execute();
#$sth->finish();
$dbh->disconnect();
提示
DBI::db=HASH(0xca77b0)->disconnect invalidates 1 active statement handle (either destroy statement handles or call finish on them before disconnecting) at 2.pl line 24.
如果打开了
#$sth->finish();的注释
什么也不显示。 |
|