Perl中如何进行数据库操作

在Perl中，可以使用DBI（Database Interface）模块来进行数据库操作。以下是一个简单的示例，演示了如何连接到数据库、执行查询并输出结果：

use DBI;

my $dsn = "DBI:mysql:database=testdb;host=localhost";
my $user = "username";
my $password = "password";

my $dbh = DBI->connect($dsn, $user, $password) or die "Unable to connect: $DBI::errstr";

my $sth = $dbh->prepare("SELECT * FROM users");
$sth->execute();

while (my @row = $sth->fetchrow_array()) {
    print join(", ", @row) . "\n";
}

$sth->finish();
$dbh->disconnect();

在这个示例中，首先建立了到MySQL数据库的连接，并执行了一个简单的查询来检索用户表中的所有数据。fetchrow_array()方法用于逐行检索结果，然后将结果以逗号分隔的形式输出。最后，完成查询和断开与数据库的连接。