Perl中怎么进行数据库连接和操作

在Perl中进行数据库连接和操作通常需要使用DBI（数据库接口）模块，以下是一个简单的示例：

use DBI;  my $db_name = "database_name"; my $db_user = "username"; my $db_pass = "password";  my $dsn = "DBI:mysql:$db_name"; my $dbh = DBI->connect($dsn, $db_user, $db_pass) or die "Cannot connect to database: $DBI::errstr";  # 执行SQL查询 my $sql = "SELECT * FROM table_name"; my $sth = $dbh->prepare($sql); $sth->execute();  # 获取查询结果 while (my @row = $sth->fetchrow_array()) {     print join(", ", @row) . "\n"; }  # 关闭数据库连接 $sth->finish(); $dbh->disconnect(); 

在上面的示例中，我们首先使用DBI模块建立数据库连接，然后执行一个简单的SQL查询，并打印查询结果。最后，我们关闭了数据库连接。您可以根据实际情况修改数据库连接信息和SQL查询语句。