如何在不首先选择记录的情况下在Class :: DBI中进行更新？

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

# 连接数据库
my $dsn = "DBI:mysql:database=test;host=localhost";
my $username = "username";
my $password = "password";
my $dbh = DBI->connect($dsn, $username, $password) or die "Error connecting to database: $DBI::errstr";

# 更新数据库表中的数据
my $sql = "UPDATE table_name SET column1 = ?, column2 = ? WHERE column3 = ?";
my $sth = $dbh->prepare($sql);
$sth->execute("value1", "value2", "value3");

# 检查是否成功
if ($sth->rows) {
    print "Update successful.\n";
} else {
    print "Update failed.\n";
}

# 关闭数据库连接
$sth->finish();
$dbh->disconnect();