Perl中一個最酷的模塊就是Perl數據庫接口(Perl Database Interface，簡稱DBI)。通過提供一系列在內部上能夠轉化成原始調用函數的功能，DBI模塊為很多不同的數據庫提供了一個統一的接口。由此，使用Perl就可以很容易地利用數據庫和建立動態Web網頁。
當前，MySQL是廣泛用於Web網站開發的數據庫，它是一種免費、開源的SQL操作。本期我們將講述到如何實現Perl與MySQL相互通訊的操作，將為你介紹由DBI提供的重要方法，在開發過程中講述到一個簡單的腳本模板。這一操作的前提是假設你的系統已經安裝了MySQL和Perl。
下載和安裝
開始，下載並安裝Perl DBI模塊和MySQL DBD。通過在Perl 命令行中運行以下命令即可完成安裝過程：
perl> perl -MCPAN -e "install DBI"
perl> perl -MCPAN -e "install DBD::MySQL"
注意：你可以手動下載和安裝DBI和MySQL DBD。
現在Perl DBI和MySQL DBD應該安裝在你的系統中。
然後，通過在MySQL用戶端命令行輸入以下命令，以建立一個用於SQL查詢的表格。
MySQL> CREATE TABLE users (id INT(4) PRIMARY KEY, username VARCHAR(25), country VARCHAR(2));
Query OK, 0 rows affected (0.11 sec)
MySQL> INSERT INTO users VALUES (1, 'john', 'IN'), (2, 'tom', 'US'), (3, 'layla', 'US');
Query OK, 3 rows affected (0.11 sec)
Records: 3 Duplicates: 0 Warnings: 0
一旦建立表格，繼續使用DBI方法建立一個腳本模板(見表A)。
表A
#!/bin/perl
# load module
use DBI;
# connect
my $dbh = DBI->connect("DBI:MySQL:database=db2;host=localhost", "joe", "guessme", {'RaiseError' => 1});
# execute INSERT query
my $rows = $dbh->do("INSERT INTO users (id, username, country) VALUES (4, 'jay', 'CZ')");
print "$rows row(s) affected ";
# execute SELECT query
my $sth = $dbh->prepare("SELECT username, country FROM users");
$sth->execute();
# iterate through resultset
# print values
while(my $ref = $sth->fetchrow_hashref()) {
print "User: $ref-> ";
print "Country: $ref-> ";
print "---------- ";
}
# clean up
$dbh->disconnect();
四個步驟
當使用Perl DBI執行一個SQL 查詢時，請遵循四個簡單的步驟：
1. 開始時，通過調用connect() 方法初始化數據庫的句柄。connect() 方法接收連接參數並作為字符串，包括數據庫類型("MySQL")，主機名稱("localhost")，以及數據庫名稱("db2")。數據庫名稱("joe")和密碼("guessme")作為第二和第三個變量提供給connect() 方法。
2. 建立SQL查詢字符串，並使用do()或prepare()以及execute()方法執行查詢語句。do()方法是針對於一次性使用的INSERT，UPDATE或者DELETE查詢，但prepare()和execute()方法針對的是SELECT查詢。使用這些方法得到的對象將有所不同，這取決於查詢的類型，查詢結果是否成功也是如此。成功的SELECT查詢將返回一個結果對象，成功的INSERT/UPDATE/DELETE 查詢將返回一些相關的行。而不成功的查詢將返回一個錯誤。
3. 對於SELECT查詢，結果對象將被進一步處理以提取數據。使用一個循環，fetchrow_hashref()方法將返回每一記錄作為Perl的信號。
4. 通過調用disconnect()方法結束會話。
當你下回繼續在Perl中編寫MySQL數據庫連接代碼時，這一腳本模塊將可為你節省時間。編程快樂！
