Perl怎么与数据库进行交互

在Perl中与数据库进行交互通常使用DBI模块，以下是一个简单的Perl代码示例，连接到MySQL数据库并查询数据：

use DBI;

# 数据库信息
my $database = "database_name";
my $host = "localhost";
my $port = "3306";
my $user = "username";
my $password = "password";

# 连接到数据库
my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host;port=$port", $user, $password)
    or die "无法连接到数据库: $DBI::errstr";

# 准备查询语句
my $sql = "SELECT * FROM table_name";
my $sth = $dbh->prepare($sql);

# 执行查询
$sth->execute();

# 获取查询结果
while (my @row = $sth->fetchrow_array()) {
    print join(", ", @row) . "\n";
}

# 断开与数据库的连接
$dbh->disconnect();

在上面的代码中，我们首先使用DBI模块连接到数据库，然后准备查询语句并执行查询，最后遍历查询结果并输出。最后，我们断开与数据库的连接。您可以根据自己的需求修改查询语句和数据库信息。