DBI 模組

你應該確保已在你的電腦上安裝了模組 DBI，然後按照以下步驟操作：

1. 在 perl 指令碼中使用 DBI 模組

use DBI;

2. 宣告一些主要引數

my $driver = "MyDriver";

my $database = "DB_name";

my $dsn = "DBI:$driver:dbname=$database";

my $userid = "your_user_ID";

my $password = "your_password";

my $tablename = "your_table";

3. 連線到你的資料庫

my $dbh = DBI->connect($dsn, $userid, $password);

4. 準備你的查詢

my $query = $dbh->prepare("Your DB query");

例如：

$my_query = qq/SELECT * FROM table WHERE column1 = 2/;

my $query = $dbh->prepare($my_query);

我們也可以在查詢中使用變數，如下所示：

my $table_name = "table";

my $filter_value = 2;

$my_query = qq/SELECT * FROM $table_name WHERE column1 = $filter_value/;

5. 執行你的查詢

$query->execute();

*注意：為了避免注入攻擊，你應該使用佔位符 ? 而不是將你的變數放在查詢中。

例如：你想顯示’table’中的所有資料，其中 column1 = $ value1 和 column2 = $ value2：

my $query = $dbh->prepare("SELECT * FROM table WHERE column1 = ? AND column2 = ?;");

$query->execute($value1, $value2);

6. Fletch 你的資料

my @row = $query->fetchrow_array(); 將資料儲存為陣列

要麼

my $ref = $sth->fetchrow_hashref(); 將資料儲存為雜湊引用

7. 完成並斷開 DB

$sth->finish;

$dbh->disconnect();