Perl中的数据库更新操作
对任何数据库的PerlUPDATE操作意味着更新数据库表中已经可用的一个或多个记录。以下是更新所有SEX为'M'的记录的过程。在这里，我们将所有男性的年龄提高一年。这将采取三个步骤-
根据所需条件准备SQL查询。这将使用 prepare()API完成。
执行SQL查询以从数据库中选择所有结果。这将使用 execute() API完成。
释放语句句柄。这将使用 finish()API完成。
如果一切正常，请执行此操作，否则您可以回滚完整的事务。有关提交和回滚API，请参见下一部分。
my $sth = $dbh->prepare("UPDATE TEST_TABLE SET AGE = AGE + 1 WHERE SEX = 'M'");
$sth->execute() or die $DBI::errstr;
print "更新的行数：" + $sth->rows;
$sth->finish();
$dbh->commit or die $DBI::errstr;使用绑定值
有时可能没有事先给出条件。因此，您可以使用绑定变量，该变量将在运行时获取所需的值。PerlDBI模块使用问号代替实际值，然后execute()在运行时通过API传递实际值。以下是示例-
$sex = 'M';
my $sth = $dbh->prepare("UPDATE TEST_TABLE SET AGE = AGE + 1 WHERE SEX = ?");
$sth->execute('$sex') or die $DBI::errstr;
print "更新的行数：" + $sth->rows;
$sth->finish();
$dbh->commit or die $DBI::errstr;在某些情况下，您想设置一个值，该值不会事先提供，因此可以按以下方式使用绑定值。在此示例中，所有男性的收入将设置为10000。
$sex = 'M';
$income = 10000;
my $sth = $dbh->prepare("UPDATE TEST_TABLE SET INCOME = ? WHERE SEX = ?");
$sth->execute( $income, '$sex') or die $DBI::errstr;
print "更新的行数：" + $sth->rows;
$sth->finish();热门推荐
10 诗词送行祝福语大全简短
11 新房开工吉日祝福语简短
12 50多岁生日简短祝福语
13 安徽疫情祝福语简短英语
14 农民朋友发财祝福语简短
15 对生活祝福语简短精辟
16 搬家词简短祝福语朋友
17 女神结婚快乐祝福语简短
18 文学短句祝福语大全简短