使用占位符在 Perl 中添加 mysql 值

Question

我想向数据库中已有的 mysql 值添加一个值。我知道你可以通过以下方式做到这一点：

 my $sql1 =qq(UPDATE genotype SET Tally=Tally+10);

但是，我希望“+10”成为占位符，因为该值将根据程序所在的 for 循环的迭代而变化。我已经编写了以下内容，但它确实如此不起作用：

my $sql1 =qq(UPDATE genotype SET Tally=Tally + ?);
my $sth1 = $dbh_m-> prepare($sql1);

$sth1->execute($ParentTally);

这里可以使用占位符吗？我也写过：

my $sql5 =qq(SELECT Tally FROM genotype);
my $sth5 = $dbh_m-> prepare($sql5); 

$sth5->execute();
my $newTally;

while (my $ChosenTally = $sth5 ->fetch){
    for my $field (@$ChosenTally){
        $newTally=$field;
    }
}

$newTally+=$ParentTally;


my $sql6 =qq(UPDATE genotype SET Tally= ?);
my $sth6 = $dbh_m-> prepare($sql6); 

$sth6->execute($newTally);

上面的代码确实有效，但是如果可能的话，我想减少程序与数据库的连接数量。

谢谢

Answer 1

您可以在执行查询之前使用 bind_param 传递值：

my $sth = $dbh->prepare( $query_with_placeholder );

for my $int ( 1 .. 10 ) {
    $sth->bind_param(1, $int, SQL_INTEGER );
    $sth->execute;
}

或者，只需将 $int 传递给 execute ：

$sth->execute( $_ ) for 1 .. 10 ;