推荐答案
// www.javascriptcn.com code example
use DBI;
# 连接到数据库
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "user", "password")
or die "无法连接到数据库: $DBI::errstr";
# 准备SQL语句
my $sth = $dbh->prepare("SELECT id, name FROM users WHERE age > ?")
or die "无法准备SQL语句: $DBI::errstr";
# 执行SQL查询
$sth->execute(18)
or die "无法执行SQL查询: $DBI::errstr";
# 获取查询结果
while (my @row = $sth->fetchrow_array) {
print "ID: $row[0], Name: $row[1]\n";
}
# 关闭语句句柄
$sth->finish;
# 断开数据库连接
$dbh->disconnect;本题详细解读
1. 连接到数据库
在Perl中，使用DBI模块连接到数据库的第一步是调用DBI->connect方法。该方法接受三个主要参数：
- 数据源名称（DSN）：指定数据库类型、数据库名称和主机地址。
- 用户名：用于连接数据库的用户名。
- 密码：用于连接数据库的密码。
如果连接失败，connect方法会返回undef，并且可以通过$DBI::errstr获取错误信息。
2. 准备SQL语句
使用prepare方法准备SQL语句。该方法返回一个语句句柄（statement handle），用于后续的执行和结果获取。如果准备失败，prepare方法会返回undef，并且可以通过$DBI::errstr获取错误信息。
3. 执行SQL查询
使用execute方法执行准备好的SQL语句。如果SQL语句中包含占位符（如?），可以在execute方法中传递相应的参数。如果执行失败，execute方法会返回undef，并且可以通过$DBI::errstr获取错误信息。
4. 获取查询结果
使用fetchrow_array方法逐行获取查询结果。该方法返回一个数组，包含当前行的所有列值。可以通过循环遍历所有行，直到fetchrow_array返回undef，表示没有更多行。
5. 关闭语句句柄
使用finish方法关闭语句句柄，释放相关资源。
6. 断开数据库连接
使用disconnect方法断开与数据库的连接，释放相关资源。
通过以上步骤，你可以在Perl中使用DBI模块与数据库进行交互，执行SQL查询并处理结果。