用Perl DBI连接MySQL数据库

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【用Perl DBI连接MySQL数据库】，下面是详细的分享！

用Perl DBI连接MySQL数据库

Perl中一个最酷的模块就是Perl数据库接口(Perl Database Interface，简称DBI)。通过提供一系列在内部上能够转化成原始调用函数的功能，DBI模块为很多不同的数据库提供了一个统一的接口。由此，使用Perl就可以很容易地利用数据库和建立动态Web网页。

当前，MySQL是广泛用于Web网站开发的数据库，它是一种免费、开源的SQL操作。本期我们将讲述到如何实现Perl与MySQL相互通讯的操作，将为你介绍由DBI提供的重要方法，在开发过程中讲述到一个简单的脚本模板。这一操作的前提是假设你的系统已经安装了MySQL和Perl。

下载和安装

开始，下载并安装Perl DBI模块和MySQL DBD。通过在Perl 命令行中运行以下命令即可完成安装过程：

perl> perl -MCPAN -e "install DBI"

perl> perl -MCPAN -e "install DBD::mysql"

注意：你可以手动下载和安装DBI和MySQL DBD。

现在Perl DBI和MySQL DBD应该安装在你的系统中。

然后，通过在MySQL用户端命令行输入以下命令，以建立一个用于SQL查询的表格。

mysql> CREATE TABLE users (id INT(4) PRIMARY KEY, username VARCHAR(25), country VARCHAR(2));

Query OK, 0 rows affected (0.11 sec)

mysql> INSERT INTO users VALUES (1, 'john', 'IN'), (2, 'tom', 'US'), (3, 'layla', 'US');

Query OK, 3 rows affected (0.11 sec)

Records: 3 Duplicates: 0 Warnings: 0

一旦建立表格，继续使用DBI方法建立一个脚本模板(见表A)。

表A

#!/bin/perl

# load module

use DBI;

# connect

my $dbh=DBI->connect("DBI:mysql:database=db2;host=localhost", "joe", "guessme", {'RaiseError'=> 1});

# execute INSERT query

my $rows=$dbh->do("INSERT INTO users (id, username, country) VALUES (4, 'jay', 'CZ')");

print "$rows row(s) affected ";

# execute SELECT query

my $sth=$dbh->prepare("SELECT username, country FROM users");

$sth->execute();

# iterate through resultset

# print values

while(my $ref=$sth->fetchrow_hashref()) {

print "User: $ref-> ";

print "Country: $ref-> ";

print "---------- ";

}

# clean up

$dbh->disconnect();

四个步骤

当使用Perl DBI执行一个SQL 查询时，请遵循四个简单的步骤：

1. 开始时，通过调用connect() 方法初始化数据库的句柄。connect() 方法接收连接参数并作为字符串，包括数据库类型("mysql")，主机名称("localhost")，以及数据库名称("db2")。数据库名称("joe")和密码("guessme")作为第二和第三个变量提供给connect() 方法。

2. 建立SQL查询字符串，并使用do()或prepare()以及execute()方法执行查询语句。do()方法是针对于一次性使用的INSERT，UPDATE或者DELETE查询，但prepare()和execute()方法针对的是SELECT查询。使用这些方法得到的对象将有所不同，这取决于查询的类型，查询结果是否成功也是如此。成功的SELECT查询将返回一个结果对象，成功的INSERT/UPDATE/DELETE 查询将返回一些相关的行。而不成功的查询将返回一个错误。

3. 对于SELECT查询，结果对象将被进一步处理以提取数据。使用一个循环，fetchrow_hashref()方法将返回每一记录作为Perl的信号。

4. 通过调用disconnect()方法结束会话。

当你下回继续在Perl中编写MySQL数据库连接代码时，这一脚本模块将可为你节省时间。编程快乐！

以上所分享的是关于用Perl DBI连接MySQL数据库，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：linux 怎么使用mysql 数据库

　　答：一、启动mysql服务 (1) rpm方式安装的mysql -设置自动启动 #ntsysv --level 3 -手工启动 #service mysqld start (2) 编译安装的mysql -设置自动启动 #vi /etc/rc.d/rc.local ....... /usr/local/mysql/bin/mysqld_safe& ........ -手工启动 #/us... >>详细

　　相关问题：perl使用dbi远程连接mysql该怎么写

　　答：是什么系统？windows下的strawberry perl已经带了dbi和dbd了linux下，安装mysql client后，可以用下面的命令安装：perl -MCPAN -e 'install DBI'perl -MCPAN -e 'install DBD::mysql' >>详细

　　相关问题：怎么连接android 和 php mysql数据库

　　答：我们先来看一个简单的Android app例子（这里是一个商品存货清单项目），在Android程序中，我们可以访问（call）PHP脚本来执行简单的CRUD操作（创建，读取，更新，删除）。为了使你对它的体系结构有一个大概的了解，这里先说一下它是怎么工作的。... >>详细