Question

我当前的perl代码正在运行数据库查询的所有行，然后抛出

DBD::mysql::st fetchrow_hashref failed: fetch() without execute() at ./recieveTxn.cgi 
line 168.

最后。它几乎就像有些东西没有告诉循环在行的末尾停止，但我已经像其他人一样写了它。

例如：查询将拉出

shortcode1
shortcode2
shortcode3
然后在这里抛出错误

$sql = "
    SELECT
        aPI.folder AS aPIfolder, 
        aPI.rowNum AS aPIrowNum,
        hasInput,
        evalCode
    FROM
        aPersonalItems as aPI
    LEFT JOIN 
        pItems_special_inputs as SI 
    ON
        aPI.folder = SI.folder AND
        aPI.rowNum = SI.rowNum
    WHERE
        hasInput=1 AND
        aPI.folder='$FORM{'folder'}'
    ORDER BY
        aPI.rowNum
";

$sth = $dbh->prepare( $sql );
$sth->execute();

my ($shortcoderow, $row);
my $shortcodeSQL = "
    SELECT 
        * 
    FROM
        pItemsShortCodes 
    WHERE
        folder='$FORM{'folder'}' 
    ORDER BY
        rowNum
";
my $shortcodeSTH = $dbh->prepare( $shortcodeSQL );
$shortcodeSTH->execute();

while( my $ref = $sth->fetchrow_hashref() ) {

    my $shortCode;
    my $isblank = 1;
    my $rowNum  = $ref->{'aPIrowNum'};

    while(my $shortcodeRef = $shortcodeSTH->fetchrow_hashref())
    #&& $rowNum == $shortcodeRef->{'rowNum'}) #line 168 above
    {
        $shortCode=$shortcodeRef->{'shortcode'};
        print $shortCode."\n";
    }
    $shortcodeSTH->finish();
}

Answer 1

问题是您正在处理来自$sth的多行。

您的代码从$sth获取一行，然后您的代码循环遍历$shortcodeSTH的每一行，直到没有更多行。然后，您的代码会调用finish()上的$shortcodeSTH方法。（这是规范模式，因为您已经获取了所有行。）

然后，您的代码第二次从外部循环开始，从$sth获取第二行。当您的代码第二次尝试通过$shortcodeSTH循环开始时，您已经获取了所有行并关闭了语句句柄。没有任何行要检索。（如果您没有发出对finish()方法的调用，则返回的错误会有所不同;错误消息将是关于获取超过游标末尾，或者已经获取最后一行，或者是某种效果的信息。）

Perl获取时没有执行错误 - 执行结束时

1 个答案: