Perl DBI（数据库独立接口）模块集

数据库是相互关联的数据的集合，有助于从数据库中有效地检索、插入和删除数据，并以表、视图、模式、报告等形式组织数据。例如，一个大学数据库组织了关于学生、教师和行政人员等的数据，这有助于更有效地对这些数据进行操作。

这个数据库可以在各种工具和软件的帮助下被访问和操作。在Perl中，数据库可以在Perl脚本的帮助下被访问和操作。这些脚本在一个称为 DBI（数据库独立接口） 模块的帮助下运行。DBI模块提供了一个与许多数据库交互的API，如MySQL、Oracle等。这个模块提供了一组变量和方法，提供了与数据库接口的交互，不需要访问原始数据库。

注意： DBI并不对数据库进行任何操作。它只是在应用程序和驱动程序之间提供一个层。通过使用这个层，驱动与应用程序进行交互并执行操作。

Perl DBI的结构

Perl中的DBI并不依赖于它所使用的数据库。它从API中获取命令和指令，并将其转发给与之相关的驱动程序。

在Perl中连接DBI到数据库

要在Perl中连接数据库，必须在系统中安装一个数据库服务器。这里，我们使用的是 MySQL ，所以进一步的说明将与 MySQL 数据库有关。

首先： 你需要在你的系统中安装Perl的DBI模块。这可以通过在你的Shell中运行以下命令来安装DBI模块来完成。

perl -MCPAN -e shell
install DBI

第二： 启动你的MySQL服务器，按照接下来的步骤与你的DBI建立连接。

第1步： 创建一个数据库并为其命名。在这里，我们将把它命名为 “GFG” 。
第2步： 在这个数据库中创建一个表。我们已经创建了一个表’Employee’，其字段为’Name’, ‘Designation’, 和’Salary’ 。
第3步： 使用下面的脚本，用Perl文件连接数据库。

#!/usr/bin/perl  
use strict;  
use warnings;  
use DBI;  
  
my driver = "mysql";  
mydatabase = "GFG";  
my dsn      = "dbi:driver:database=database";  
myuser     = "root";  
my password = "";  
mydbh = DBI->connect(dsn,user, password, 
{  
   PrintError       => 0,  
   RaiseError       => 1,  
   AutoCommit       => 1,  
   FetchHashKeyName => 'NAME_lc',  
});  dbh->disconnect;  

在上述脚本中，变量 $dsn 存放正在加载的数据库，变量 $dbh 存放数据库句柄对象。