使用 Perl 的 DBI 更新行并将响应打印到 cmd 行的最佳方法？

Question

有一些使用 DBI 模块的 Perl 代码 - （代码正在工作，如果需要，我可以在早上发布它） - 但主要是想了解 DBI 需要对行进行更新 - 并且返回错误，或确认更新已执行。

（下面只是一个基本示例，如果您愿意，请随意给出您自己的示例和示例 DDL...只想要一些我知道可以工作的代码。我已经通过 Perl PtkDB 调试器运行了我的代码，并且可以“看到”它生成和执行的 SQL - 甚至粘贴到 MySQL 控制台中并执行它...但它在 Perl 中什么也没做，即使 select 语句正在工作主要只是想更好地了解 DBI 如何处理 UPDATE 。 MySQL，如果 DBI 中有任何内置功能可以使调试变得更加简单，谢谢！）

因此，请提供一个完整的 Perl 脚本：

• 设置连接（MySQL）
• 根据 ID 第二行并获取第一行和最后一行。 name
• 小写名称
• 表
• UPDATE断开

示例表

<COL01>Id <COL02>FirstName <COL03>LastName
<ROW01-COL01>1 <ROW01-COL02>John <ROW01-COL03>Smith
<ROW02-COL01>2 <ROW02-COL02>Jane <ROW02-COL03>Doe

---

UPDATE (1): 有问题的代码如下。我唯一改变的是删除与问题和配置信息（例如数据库名称、用户、密码等）无关的代码，并使变量的值生成超级简单。该代码是由其他人在遗留代码库中创建的。

use strict;
use warnings;
use DBI;

sub dbOpen {
    my $dsn; 
    my $dbh;
    $dsn = "DBI:mysql:database=databasename;host=localhost;port=3306";
    $dbh = DBI->connect( $dsn, "root", "password" ) ||
    print STDERR "FATAL: Could not connect to database.\n$DBI::errstr\n";
    $dbh->{ AutoCommit } = 0;
    return($dbh);
} # END sub dbOpen

my $Data;
$Data = &dbOpen();

my ($sql,$rs,$sql_update_result);
my $column2,
my $column3;
my $id;
$column2 = 2,
$column3 = 3;
$id = 1;

$sql = "UPDATE table SET column1 = NULL, column2 = ".$column2.", column3 = ".$column3." WHERE id = ".$id.";";
$rs = $Data->prepare( $sql );
$rs->execute() || &die_clean("Couldn't execute\n$sql\n".$Data->errstr."\n" );
($sql_update_result) = $rs->fetchrow;

$Data->disconnect();

MySQL 的 DDL——如果需要，只需发表评论，我将发布一个。

---

更新（2）：

最终找到了一个完整的示例，尽管它仅适用于 select 语句，甚至没有将任何 VAR 插入 SQL：http://search.cpan.org/~timb/DBI/DBI.pm#Simple_Examples

Answer 1

几乎从 DBI 复制并粘贴概要：

use DBI;
$dbh = DBI->connect($data_source, $username, $auth, \%attr);
$statement = "UPDATE some_table SET som_col = ? WHERE id = ?";
$rv  = $dbh->do($statement, undef, $som_val, $id); 
$DBI::err && die $DBI::errstr;
$rc  = $dbh->disconnect;

Answer 2

我更喜欢在更新或删除时使用 do ，因为这些操作不会返回任何行。
因此，为了进行一点调试，我会像这样修改您的代码：

my $sql = "UPDATE table SET column1=NULL, column2=$column2, column3=$column3 WHERE id=$id";
print STDERR "SQL: $sql\n"

my $numrows = $Data->do($sql);

if (not defined $numrows) {
   print STDERR "ERROR: $DBI::errstr";
} else {
   print STDERR "INFO: $numrows rows updated";
}

您可以从 Perl 代码中测量查询响应时间，但由于它是数据库的东西，我建议您使用任何 Mysql 专用工具（我不使用不使用 MySQL，抱歉）。

Answer 3

您是否考虑过更高级别的东西 - 例如 DBIx::Class？

Answer 4

您不需要返回值，在 Perl 中将它们小写，然后更新行。只需在一个 SQL 语句中执行此操作：

my $sql = "UPDATE table SET column2=lower(column2) WHERE id = ?";
$sth = $dbh->prepare($sql);
foreach my $id (@ids) {
    $sth->execute($id);
}

您还希望使用占位符来阻止 Bobby Tables 访问。