Perl DBI 與 MySQL 交互入門：腳本特點、連接與基礎操作

Perl 腳本基礎規範

• 文本文件，任意編輯器創建
• 首行 #!/usr/bin/perl 指定解釋器路徑（需根據實際環境調整）
• Unix 下需 chmod +x script.pl 賦予執行權限
• Windows 下用 perl script.pl 運行

核心模塊載入

use DBI;        # 必須，載入 DBI 架構
use strict;     # 強制變量聲明，捕獲拼寫錯誤

簡單腳本範例：導出會員列表

#!/usr/bin/perl
# dump_members.pl - 導出歷史同盟會員列表

use DBI;
use strict;

# 連接參數（建議從配置文件讀取，見後文）
my $dsn = "DBI:mysql:database=sampdb;host=localhost";
my $user = "sampadm";
my $password = "secret";

# 連接，啟用 RaiseError 自動拋出異常
my $dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1 })
    or die "Connect failed: $DBI::errstr";

# 準備並執行查詢
my $sth = $dbh->prepare(q{
    SELECT last_name, first_name, suffix, email,
           street, city, state, zip, phone
    FROM member ORDER BY last_name
});
$sth->execute();

# 逐行獲取並輸出（製表符分隔）
while (my @row = $sth->fetchrow_array()) {
    print join("\t", @row), "\n";
}

# 清理
$sth->finish();
$dbh->disconnect();
exit 0;

關鍵對象與變量命名慣例

錯誤處理三種模式

# 自定義錯誤處理器
$SIG{__DIE__} = sub { die "抱歉，發生錯誤\n"; };

連接參數靈活指定

• DSN 格式：DBI:mysql:db_name、DBI:mysql:db_name:host、DBI:mysql:db_name:host:port
• 環境變量：DBI_DSN、DBI_USER、DBI_PASS
• 選項文件（推薦）：mysql_read_default_file=/path/.my.cnf 或 mysql_read_default_group=client
• 命令行覆蓋：腳本解析 --host、--user、--password 覆蓋配置文件

my $dsn = "DBI:mysql:;mysql_read_default_file=$ENV{HOME}/.my.cnf;mysql_read_default_group=dbi";
my $dbh = DBI->connect($dsn, undef, undef, { RaiseError => 1 });

調試技巧

1. 打印 SQL： print "$sql\n" 對比手工執行與腳本執行的差異
2. DBI Trace：
   • 代碼：DBI->trace(2, 'trace.log') 或 $sth->trace(2)
   • 環境變量：export DBI_TRACE=2=trace.log
   • 級別 1~2 最實用，顯示 SQL 文本、佔位符替換、quote 結果

結果集元數據應用

• $sth->{NAME}：列名數組引用
• $sth->{NUM_OF_FIELDS}：列數
• $sth->{mysql_max_length}：每列最大顯示寬度（MySQL 專有）

可構建類似 mysql 客戶端的表格輸出、動態列展示等功能。

總結

Perl DBI 提供了成熟、穩健的 MySQL 交互接口。掌握 connect/prepare/execute/fetch/disconnect 生命週期、錯誤處理模式、佔位符與參數綁定、配置文件解耦、Trace 調試，即可編寫可維護的生產級腳本。