MySQL & Perl DBI · ZetCode 中文系列教程

# MySQL & Perl DBI > 原文： [http://zetcode.com/db/mysqlperl/dbi/](http://zetcode.com/db/mysqlperl/dbi/) 在 MySQL Perl 教程的第一章中，我們將介紹 Perl DBI 模塊和 MySQL 數據庫。我們將提供一些定義并顯示如何安裝必要的元素。 ## 先決條件要使用本教程，我們必須安裝 Perl 語言，MySQL 數據庫，Perl DBI 和`DBD::MySQL`模塊。 DBI 是標準的 Perl 數據庫接口。每個數據庫都有其驅動程序。在我們的例子中，`DBD::mysql`是 MySQL 數據庫的驅動程序。 ```perl $ sudo perl -MCPAN -e shell cpan> install DBI cpan[2]> install DBD::mysql ``` 上面的命令顯示了如何安裝 Perl DBI 和`DBD::mysql`模塊。 ## MySQL 數據庫 MySQL 是領先的開源數據庫管理系統。它是一個多用戶，多線程的數據庫管理系統。 MySQL 在網絡上特別流行。它是非常流行的 LAMP 平臺的一部分，該平臺由 Linux，Apache，MySQL 和 PHP 組成。目前，MySQL 由 Oracle 擁有。 MySQL 數據庫在最重要的 OS 平臺上可用。它運行在 BSD UNIX，LINUX，Windows 或 Mac OS。維基百科和 YouTube 使用 MySQL。這些站點每天管理數百萬個查詢。 MySQL 有兩個版本：MySQL 服務器系統和 MySQL 嵌入式系統。 MySQL 隨附`mysql`命令行工具。它可用于對數據庫發出 SQL 命令。現在，我們將使用`mysql`命令行工具創建一個新數據庫。 ```perl $ sudo apt-get install mysql-server ``` 此命令將安裝 MySQL 服務器和其他各種包。在安裝包時，提示我們輸入 MySQL 根帳戶的密碼。要從源代碼安裝 MySQL，請查看 [MySQL 安裝](http://zetcode.com/databases/mysqltutorial/installation/)頁面。 ```perl $ service mysql status mysql start/running, process 1238 ``` 我們檢查 MySQL 服務器是否正在運行。如果沒有，我們需要啟動服務器。 ```perl $ sudo service mysql start ``` 如果我們已經從包中安裝了 MySQL 數據庫，則上述命令是啟動 MySQL 的常用方法。 ```perl $ sudo -b /usr/local/mysql/bin/mysqld_safe ``` 上面的命令使用 MySQL 服務器啟動腳本啟動 MySQL 服務器。我們啟動 MySQL 服務器的方式可能有所不同。這取決于我們是否從源代碼或包安裝了 MySQL，也取決于 Linux 發行版。有關更多信息，請查閱 [MySQL 的第一步](http://zetcode.com/databases/mysqltutorial/firststeps/)或您的 Linux 發行版信息。接下來，我們將創建一個新的數據庫用戶和一個新的數據庫。我們使用`mysql`客戶端。 ```perl $ mysql -u root -p Enter password: Welcome to the MySQL monitor. Commands end with ; or \g. Your MySQL connection id is 30 Server version: 5.0.67-0ubuntu6 (Ubuntu) Type 'help;' or '\h' for help. Type '\c' to clear the buffer. mysql> SHOW DATABASES; +--------------------+ | Database | +--------------------+ | information_schema | | mysql | +--------------------+ 2 rows in set (0.00 sec) ``` 我們使用 mysql 監視器客戶端應用連接到服務器。我們使用根帳戶連接到數據庫。我們用`SHOW DATABASES`語句顯示所有可用的數據庫。 ```perl mysql> CREATE DATABASE mydb; Query OK, 1 row affected (0.02 sec) ``` 我們創建一個新的`mydb`數據庫。在整個教程中，我們將使用此數據庫。 ```perl mysql> CREATE USER user12@localhost IDENTIFIED BY '34klq*'; Query OK, 0 rows affected (0.00 sec) mysql> USE mydb; Database changed mysql> GRANT ALL ON mydb.* to user12@localhost; Query OK, 0 rows affected (0.00 sec) mysql> quit; Bye ``` 我們創建一個新的數據庫用戶。我們授予該用戶`mydb`數據庫所有表的所有特權。 ## Perl DBI Perl DBI（數據庫接口）是用于 Perl 編程語言的數據庫訪問模塊。它定義了一組提供標準數據庫接口的方法，變量和約定。 DBI 還負責驅動程序的動態加載，錯誤檢查和處理，提供方法的默認實現以及許多其他非數據庫特定的職責。 DBI 將方法調用分派到適當的數據庫驅動程序。DBD（數據庫驅動程序）是一個 Perl 模塊，它轉換特定數據庫引擎的 DBI 方法。數據庫驅動程序由數據庫供應商提供。 ```perl #!/usr/bin/perl use strict; use DBI; my @ary = DBI->available_drivers(); print join("\n", @ary), "\n"; ``` 該代碼示例列出了系統上所有可用的驅動程序。 ```perl use DBI; ``` 我們為腳本導入 DBI 模塊。 ```perl my @ary = DBI->available_drivers(); ``` `available_drivers()`類方法獲取系統上所有當前可用的驅動程序。 ```perl print join("\n", @ary), "\n"; ``` 此行將驅動程序打印到控制臺，每個驅動程序都在單獨的行上。 ```perl $ ./available_drivers.pl DBM ExampleP File Gofer Proxy SQLite Sponge mysql ``` 示例輸出。 ## 常見的 DBI 方法下表列出了一些常見的 DBI 方法。 | 方法名稱 | 描述 | | --- | --- | | `available_drivers()` | 返回所有可用驅動程序的列表 | | `connect()` | 建立與請求的數據源的連接 | | `disconnect()` | 與數據庫服務器斷開連接 | | `prepare()` | 準備要執行的 SQL 語句 | | `execute()` | 執行預備語句 | | `do()` | 準備并執行一條 SQL 語句 | | `bind_param()` | 在預備語句中將值與占位符關聯 | | `bind_col()` | 將 Perl 變量綁定到`SELECT`語句的輸出字段 | | `begin_work()` | 開始新事務 | | `commit()` | 將最新的一系列未提交的數據庫更改寫入數據庫 | | `rollback()` | 撤消最近一系列未提交的數據庫更改 | | `quote()` | 引用字符串字面值，以用作 SQL 語句中的字面值 | | `dump_results()` | 獲取所有行并打印 | | `fetchrow_array()` | 獲取下一行作為字段數組 | | `fetchrow_arrayref()` | 獲取下一行作為字段的引用數組 | | `fetchrow_hashref()` | 獲取下一行作為對哈希表的引用 | | `fetchall_arrayref()` | 以數組的形式獲取所有數據 | | `finish()` | 完成聲明并讓系統釋放資源 | | `rows()` | 返回受影響的行數 | | `column_info()` | 提供有關列的信息 | | `table_info()` | 提供有關表的信息 | | `primary_key_info()` | 提供有關表中主鍵的信息 | | `foreign_key_info()` | 提供有關表中外鍵的信息 | ## 約定在使用 Perl DBI 時，Perl 程序員通常使用以下變量名。在本教程中，我們也將遵守這些約定。 | 變量名 | 描述 | | --- | --- | | `$dbh` | 數據庫句柄對象 | | `$sth` | 語句句柄對象 | | `$drh` | 驅動程序句柄對象（在應用中很少見或使用） | | `$h` | 上面的任何句柄類型（`$dbh`，`$sth`或`$drh`） | | `$rc` | 通用返回碼（布爾值：`true = ok`，`false = error`） | | `$rv` | 一般返回值（通常為整數） | | `@ary` | 從數據庫返回的值列表，通常是一行數據 | | `$rows` | 處理的行數（如果可用，否則為 -1） | | `$fh` | 文件句柄 | | `undef` | `NULL`值由 Perl 中的未定義值表示 | | `\%attr` | 引用傳遞給方法的屬性值的哈希 | MySQL Perl 教程的這一章介紹了 Perl DBI 模塊和 MySQL 數據庫。