如何使用面向对象的Perl组装SQL？

# 引入必要的库
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, { RaiseError => 1 });

# 定义SQL语句模板
my $sql_template = "SELECT * FROM users WHERE name = ?";

# 定义要查询的名字
my $name = "John Doe";

# 使用变量替换占位符
my $sql = $dbh->prepare($sql_template);
$sql->execute($name);

# 处理查询结果
while (my $row = $sql->fetchrow_hashref) {
    print "Name: $row->{name}, Email: $row->{email}\n";
}

# 关闭数据库连接
$dbh->disconnect;