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后，您需要调用其中一个fetchsomething methods并对您获得的数据结构执行某些操作。

为什么我没有获得此DBI / MySQL查询的输出？

1 个答案: