在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()方法用于逐行檢索結果，然后將結果以逗號分隔的形式輸出。最后，完成查詢和斷開與數據庫的連接。
