Perl - 更新无主键的mysql表

Question

我有一个没有主键的表。 我需要执行以下操作：

UPDATE t1 
    SET tstamp = now() 
WHERE `col1` = 1 
    AND `col2` = 'this'; 

在工作台，它抛出Error 1175直到我更新之前执行此线：

SET SQL_SAFE_UPDATES = 0; 

有了这条线只是正常工作。

但是，当我尝试在Perl中这样做，它不起作用。我都尝试

$dbh->do("SET SQL_SAFE_UPDATES = 0"); 

和

my $dbh = DBI->connect("DBI:mysql:$db:$host:$port",$user,$password, { RaiseError => 1, AutoCommit => 0, sql_safe_updates => 0 }) 

，但它仍然无法正常工作。

如何在perl中获得此项工作？

UPD。 我使用@@ sql_safe_updates检查并提交更新了代码。

的代码：

$sth = $dbh->prepare("SELECT @\@sql_safe_updates"); $sth->execute; while(my @row = $sth->fetchrow_array) { print "sql_safe_updates before: ". $row[0] . "\n"; } 

$dbh->do("SET SQL_SAFE_UPDATES = 0") or die $dbh->errstr; 

$sth = $dbh->prepare("SELECT @\@sql_safe_updates"); $sth->execute; while(my @row = $sth->fetchrow_array) { print "sql_safe_updates after: " . $row[0] . "\n"; } 

$query = "UPDATE t1 SET tstamp = now() WHERE `col1` = 1 AND `col2` = 'this'"; 
$sth = $dbh->prepare($query); 
$rv = $sth->execute or die $sth->err(); 
$dbh->commit; 
if ("$rv" ne "1") { 
    $query =~ s/\n/ /g; $query =~ s///g; 
    print "Failed to run query: $query\n"; 
    exit; 
} 

输出：

sql_safe_updates before: 0 
sql_safe_updates after: 0 
Failed to run query: UPDATE t1 SET tstamp = now() WHERE `col1` = 1 AND `col2` = 'this' 

UPD2。我检查了桌子 - 在我提交之后一切都正常。这是令人困惑的想法，$ rv是1成功select和2成功update

Answer 1

这是一个返回码检查错误，并提交一个失踪。

关于返回码检查，对于非SELECT声明，execute returns the number of rows affected, if known.。受影响的零行（与错误相对）被表示为特殊的“零但真”值“0E0”。在OP的情况下，声明返回2.