如何从 Perl 的 DBI 获取 MySQL 查询的结果？

Question

我正在执行以下操作，并得到“1”，我认为这意味着该语句进展顺利。但我想要结果。

怎么了？

#!/usr/bin/perl

use strict;
use DBI;

my $host = "test";
my $database = "dd";
my $port = 3306;
my $user = "uuu";
my $pw = "ppp";

my $mysql = DBI->connect("DBI:mysql:database=$database;host=$host;port=$port", $user, $pw)
    or die "Cannot connect to MySQL server\n";

my $m = $mysql->do(qq{select MAX(idvisit) from log_visit});

print $m;

Answer 1

my $m = $mysql->prepare("select MAX(idvisit) from log_visit");
$m->execute() or die "Couldn't execute statement: ".$m->errstr;
print $m->fetch()->[0];

Answer 2

检查文档以了解您遇到问题的功能总是值得的。

在这种情况下，“do”的 DBI 文档 说：

准备并执行单个
陈述。返回行数
错误时受影响或未定义。

而且，更明确地说，

它不应该用于 SELECT
语句，因为它不返回
一个语句句柄（所以你无法获取
任何数据）。

Answer 3

do 返回受影响的行数。您可能想查看statement 类，特别是execute 函数。

Answer 4

my $m = $mysql->selectrow_array(qq{select MAX(idvisit) from log_visit});