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();