用Perl DBI串連MySQL資料庫

 

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->finish(); //添加這個釋放結果集，否則disconnect時會報錯 $dbh->disconnect(); 四個步驟 當使用Perl DBI執行一個SQL 查詢時，請遵循四個簡單的步驟： 開始時，通過調用connect() 方法初始化資料庫的控制代碼。connect() 方法接收串連參數並作為字串，包括資料庫類型("mysql")，主機名稱("localhost")，以及資料庫名稱("db2")。資料庫名稱("joe")和密碼("guessme")作為第二和第三個變數提供給connect() 方法。 建立SQL查詢字串，並使用do()或prepare()以及execute()方法執行查詢語句。do()方法是針對於一次性使用的INSERT，UPDATE或者DELETE查詢，但prepare()和execute()方法針對的是SELECT查詢。使用這些方法得到的對象將有所不同，這取決於查詢的類型，查詢結果是否成功也是如此。成功的SELECT查詢將返回一個結果對象，成功的INSERT/UPDATE/DELETE 查詢將返回一些相關的行。而不成功的查詢將返回一個錯誤。 對於SELECT查詢，結果對象將被進一步處理以提取資料。使用一個迴圈，fetchrow_hashref()方法將返回每一記錄作為Perl的訊號。 通過調用disconnect()方法結束會話。 當你下回繼續在Perl中編寫MySQL資料庫連接代碼時，這一指令碼模組將可為你節省時間。編程快樂！