如何在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。

更新於:2019年12月2日

370 次瀏覽

啟動你的職業生涯

透過完成課程獲得認證

開始學習
廣告
© . All rights reserved.