珀尔 | DBI(数据库独立接口)模块组 – 1
数据库是相互关联的数据的集合,有助于高效地从数据库中检索、插入和删除数据,并以表格、视图、模式、报告等形式组织数据。例如,大学数据库组织有关学生、教师和管理人员等的数据,有助于更有效地对这些数据执行操作。
可以借助各种工具和软件访问和操作该数据库。在 Perl 中,可以在 Perl 脚本的帮助下访问和操作数据库。这些脚本在称为DBI(数据库独立接口)模块的模块的帮助下运行。 DBI 模块提供了与MySQL 、 Oracle等许多数据库交互的 API。该模块提供了一组变量和方法,提供与数据库接口的交互,无需访问原始数据库。
Note: DBI doesn’t perform any operation on the database. It just provides a layer between the application and the drivers. With the use of this layer, the drivers interact and perform operations on the application.
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";
my $database = "GFG";
my $dsn = "dbi:$driver:database=$database";
my $user = "root";
my $password = "";
my $dbh = DBI->connect($dsn, $user, $password,
{
PrintError => 0,
RaiseError => 1,
AutoCommit => 1,
FetchHashKeyName => 'NAME_lc',
});
$dbh->disconnect;
在上面的脚本中,变量$dsn保存正在加载的数据库,变量$dbh保存数据库句柄对象。