Perl 操作 MySQL 資料庫完整範例：連線、CRUD、取得自增 ID

標準 DBI 操作流程

1. 連線與斷線

my $dbh = DBI->connect("DBI:mysql:database=DBname;host=localhost", "user", "pwd", { RaiseError => 1 });
# ... 操作 ...
$dbh->disconnect();

2. 無回傳值操作（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);

建議使用佔位符 ? 防止 SQL 注入。

3. 取得自增 ID

my $table_key = $dbh->{mysql_insertid};

緊接在 execute() 之後呼叫。

4. 查詢與遍歷結果

my $sth = $dbh->prepare("SELECT id, name FROM table_name");
$sth->execute();
while (my $row = $sth->fetchrow_arrayref) {
    printf "%s++%s\n", $row->[0], $row->[1];
}

進階提示

• 使用 RaiseError => 1 讓錯誤自動拋出異常，簡化錯誤處理
• 大量寫入時可用 prepare_cached 或批次 execute_array
• 交易控制：$dbh->begin_work、$dbh->commit、$dbh->rollback