2

私はPerlで次のコードを書きました。私はWindows7用のActivePerl5.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で個別に確認しました。

4

1 に答える 1

3

出力を作成するコードがないため、出力はありません。

呼び出した後、何かメソッドexecuteの1つを呼び出して、戻ってきたデータ構造で何かを行う必要があります。fetch

于 2012-05-07T19:24:38.157 に答える