如何在Perl中建立資料庫連線?
假設我們將使用Perl連線MySQL資料庫。在連線資料庫之前,請確保以下幾點。如果您不瞭解如何在MySQL資料庫中建立資料庫和表,可以參考我們的MySQL教程。
- 您已建立了一個名為TESTDB的資料庫。
- 您已在TESTDB中建立了一個名為TEST_TABLE的表。
- 該表包含欄位FIRST_NAME、LAST_NAME、AGE、SEX和INCOME。
- 已設定使用者ID“testuser”和密碼“test123”來訪問TESTDB。
- 您的機器上已正確安裝Perl模組DBI。
- 您已閱讀MySQL教程以瞭解MySQL基礎知識。
以下是連線MySQL資料庫“TESTDB”的示例:
#!/usr/bin/perl use DBI use strict; my $driver = "mysql"; my $database = "TESTDB"; my $dsn = "DBI:$driver:database=$database"; my $userid = "testuser"; my $password = "test123"; my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;
如果與資料來源建立連線,則返回資料庫控制代碼並將其儲存到$dbh以供進一步使用,否則$dbh設定為 undef 值,而$DBI::errstr返回錯誤字串。
斷開資料庫連線
要斷開資料庫連線,請使用**disconnect** API,如下所示:
$rc = $dbh->disconnect or warn $dbh->errstr;
disconnect方法的事務行為,遺憾的是,是未定義的。一些資料庫系統(例如Oracle和Ingres)會自動提交任何未完成的更改,但其他系統(例如Informix)會回滾任何未完成的更改。不使用AutoCommit的應用程式應在呼叫disconnect之前顯式呼叫commit或rollback。
廣告
資料結構
網路
關係資料庫管理系統(RDBMS)
作業系統
Java
iOS
HTML
CSS
Android
Python
C語言程式設計
C++
C#
MongoDB
MySQL
Javascript
PHP