Question

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

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

在Workbench中，它会抛出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。我检查了桌子 - 我提交后一切正常。令人困惑的想法是，成功select时$ rv为1，成功update时为$ r

Answer 1

这是一个返回代码检查错误，并且缺少提交。

关于返回代码检查，对于非SELECT语句，execute returns the number of rows affected, if known.。受影响的零行（与错误相对）表示为特殊的＆＃34;零但是真的＆＃34;价值＆＃34; 0E0＆＃34;。在OP的案例中，该陈述正在返回2.

Perl - 更新没有主键的mysql表

1 个答案: