在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模塊連接到數據庫，然后準備查詢語句并執行查詢，最后遍歷查詢結果并輸出。最后，我們斷開與數據庫的連接。您可以根據自己的需求修改查詢語句和數據庫信息。
