Perl DBI 操作 MySQL 完整指南：連接、增刪改查與自增 ID 獲取

前言

Perl 通過 DBI 模組統一資料庫介面，配合 DBD::mysql 驅動實現 MySQL 操作。本文涵蓋連接管理、無返回值操作、自增 ID 獲取、查詢結果遍歷四大核心場景。

一、連接與斷開

my $dbh = DBI->connect(
    "DBI:mysql:database=DBname;host=localhost",
    "user", "pwd",
    { RaiseError => 1 }  # 遇錯自動 die，省去手動檢查
);
# ... 業務邏輯 ...
$dbh->disconnect();

RaiseError => 1 讓異常即時拋出，避免靜默失敗。

二、INSERT/UPDATE/DELETE：無返回值操作

my $sth = $dbh->prepare(
    "INSERT INTO table_name (Name, region_id, inuse, url) 
     VALUES (?, ?, ?, ?)"
);
$sth->execute($r_name, $t+1, 1, $r_url);

• 使用佔位符 ? 防止注入，自動處理引號轉義
• prepare 一次解析，多次 execute 復用，批量寫入效能更高

三、獲取自增主鍵 ID

$sth->execute();  # 執行 INSERT 後
my $new_id = $dbh->{mysql_insertid};

MySQL 專屬屬性，僅在當前連接上下文有效。

四、SELECT 查詢與結果遍歷

my $sth = $dbh->prepare("SELECT col1, col2 FROM table_name WHERE ...");
$sth->execute();

while (my $row = $sth->fetchrow_arrayref) {
    printf "%s++%s\n", $row->[0], $row->[1];
}

常用獲取方式對比

最佳實踐提示

1. 長運行程序使用 $dbh->ping 檢測連接存活，斷線重連
2. 大量數據採用 prepare_cached 緩存語句句柄
3. 異常處理用 eval { ... } 包裹，捕獲 $@
4. 嚴禁在 SQL 字符串中直接插值變量，堅持佔位符