mysql - 为什么我没有得到这个 DBI/MySQL 查询的输出？

Question

我在 Perl 中编写了以下代码。我有适用于 Windows 7 的 ActivePerl 5.14。

#!C:\perl64\bin\perl.exe -wT
use strict;
use warnings;
use DBI;
print "Content-type: text/html \n\n";

# MYSQL CONFIG VARIABLES
my $driver     = "mysql";
my $database   = "test555";
my $tablename3 = "test77";

my $user = "root";
my $pw   = "root";

# PERL MYSQL CONNECT()
my $dbh = DBI->connect("DBI:$driver:$database", $user, $pw,);

my $sth = $dbh->prepare("
        SELECT *
          FROM t6
         WHERE paragraph='PWE1234'
    ");

$sth->execute();
#$dbh->disconnect;
#exit 0;

当程序到达$dbh->disconnect时，系统抛出错误；因此将其注释掉。当我将其注释掉时，系统没有抛出任何错误，但我也没有得到输出。

这个查询有结果，我单独用 MySQL 查过一次。

Answer 1

没有输出，因为您没有创建任何输出的代码。

调用后，execute您需要调用其中fetch一种方法并使用返回的数据结构做一些事情。