`
ShellyLi
  • 浏览: 114595 次
  • 性别: Icon_minigender_2
  • 来自: 山东
社区版块
存档分类
最新评论

PERL与MySQL

    博客分类:
  • perl
阅读更多
一、简介
PERL应用数据库由两种方法,其一是利用本身所配置的DBM包,这个可以建立数据库并对其进行操作,因此可以把DBM包以及其他类似的包看作是一个数据库的扩展。另一个就是利用DBI包或者类似的包建立与其他关系型数据库的连接,显然,我们通常需要利用后者。

数据库接口(DBI)是由TIM BUNCE(Tim.Bunce@ig.co.uk)所书写,DBI是专门为PERL所书写。你可以在

http://www.hermetica.com/technologia/DBI/ 查找到相应的信息。

最初,DBI只是由Tim Bunce开发的一个接口包,后来,他开发了DBD::Oracle包用于处理与Oracle的接口。然后,就有了一系列的DBD::Modules的包用于处理与其他类型的数据库的接口。同样,你可以在:

http://www.hermetica.com/technologia/DBI/取得详细的信息。现在可以得到的包有如下:

DBD-Oracle-0.29.tar.gz : Oracle 数据库

DBD-Informix-0.20pl0.tar.gz : Informix 数据库

DBD-QBase-0.03.tar.gz : Quickbase

DBD-mSQL-0.60pl9.tar.gz : mSQL-based 数据库

DBI-0.67.tar.gz : DBI 接口

另外还有ODBC的驱动,从而可以载WINDOWS系统下驱动如ACCESS之类的数据库系统。(当然,PERL FOR WIN32中也有WIN32::ODBC的包用于处理ODBC兼容的驱动程序)

当取回DBI的驱动程序包之后,先不急安装,首先,测试PERL5是否安装,这一点很重要,然后:

如果PERL5已经安装: perl Makefile.PL

如果没有安装:perl Makefile.PL PERL_SRC=/path/to/perl/source/dir

然后:

make

make install完成安装

你可以在系统下执行指令$ PERL_DL_DEBUG=255 perl -e 'use DBI;'

然后可以得到大致如此的结果:

DynaLoader.pm loaded (/usr/local/lib/perl5/i486-linux/5.003 /usr/local/lib/perl5

/usr/local/lib/perl5/site_perl/i486-linux /usr/local/lib/perl5/site_perl .

/usr/local/lib /usr/local/lib /lib /usr/lib)

DynaLoader::bootstrap for DBI (auto/DBI/DBI.so)

这样说明你的DBI包已经安装成功了。

DBI和DBD包运行的模式如下:



(图:DBI、DBD的工作模式)

让我们看看连接数据发生的典型的过程:

1、载入DBI驱动程序

2、使用DBD连接相应的数据库

3、打开含有SQL指令的游标

4、取回数据集

5、关闭游标

6、关闭数据库连接

7、退出

我们使用DBI之前首先需要声明:

#!/usr/bin/perl -w

use DBI;

我们有两种方法可以建立PERL与数据库之间的连接:

#!/usr/bin/perl -w

use DBI;

#建立与数据库的连接,第4个参数标明数据库类型

$dbh = DBI->connect( 'connection_string', 'username', 'password', 'mSQL' );

if ( !defined $dbh ) {

die "Cannot do \$dbh->connect: $DBI::errstr\n";

}

通过这种方法,返回一个数据库句柄。这是一种常用的用法,另外一种方法返回“驱动程序句柄”:

#!/usr/bin/perl -w

use DBI;

$drh = DBI->install_driver( 'mSQL' );

if ( !defined $drh ) {

die "Cannot load driver: $!\n";

}

这种方法多用来检查是否系统中是否存在某种驱动程序。

在使用中,有三种句柄将要在程序设计中涉及到:驱动程序句柄(Driver Handle)、数据库句柄(DataBase Handle)、语句句柄(Statement Handle),它们之间的关系可以用下图来表示:



(图:驱动程序句柄、数据句柄和语句句柄的工作关系)

以下是一些利用DBI处理数据库的历程:

1、打开连接(数据库)已经关闭

#!/usr/bin/perl -w

#

# (c)1996 Alligator Descartes

#

# inout.pl: Connects and disconnects from a specified database

use DBI;

if ( $#ARGV < 0 ) {

die "Usage: inout.pl \n";

}

# Create new database handle. If we can't connect, die()

$dbh = DBI->connect( '', $ARGV[0], '', $ARGV[1] );

if ( !defined $dbh ) {

die "Cannot connect to mSQL server: $DBI::errstr\n";

}

# Disconnect from the database

$dbh->disconnect;

exit;

二、DBI与DBD::mysql
DBI是一个许多数据库通用的接口,这意味着你可以写出一个可以工作于许多不同的数据库的脚本。为此,你需要一个为每中数据库类型定义的DATABASE DRIVER(DBD),对于MySQL来说,这个驱动程序叫DBD::mysql。你可以参考DBIs web page以获得更多的信息。为了获得在Perl5中的关于面向对象编程的概念,请参考the perl OOP page

三、DBI接口
通用DBI方法

connect
建立与一个数据库服务器的连接

prepare
获取准备执行的SQL语句

do
准备并执行一个SQL语句

disconnect
断开与一个数据库服务器的连接

quote
被插入引用字符串(块)

execute
执行存储过程

fetchrow_array
取出下一行到一个数组之中

fetchrow_arrayref
取出下一行到数组中,返回数组的引用

fetchrow_hashref
取出下一行到哈希表,返回其引用

fetchall_arrayref
取出所有的数据到一个数组,返回其引用。

finish
结束语句、释放系统资源

rows
返回作用的行的数目

data_sources
返回本机中可用的数据库的数组。

ChopBlanks
去除空格

NUM_OF_PARAMS
存储过程中占位符的数目

NULLABLE
哪一个行允许Null。


MySQL 的特殊方法

insertid
最后自动递增的值

is_blob
为BLOB的行

is_key
为键的行

is_num
为数字的行

is_pri_key
为主键的行

is_not_null
不能为NULL的行

length
理论上最大的列的数目

max_length
物理上最大的列的数目

NAME
列名

NUM_OF_FIELDS
返回的字段的数目

table
返回的集中的表的名称

type
行的类型

_CreateDB
创建一个数据库

_DropDB
删除一个数据库



connect:
使用connect方法建立一个到数据源的连接。$data_source应该以DBI:driver_name:开始,例如:
$dbh = DBI->connect("DBI:mysql:$database", $user, $password); $dbh = DBI->connect("DBI:mysql:$database:$hostname", $user, $password); $dbh = DBI->connect("DBI:mysql:$database:$hostname:$port", $user, $password);
如果用户名或者是口令没有定义的话,那么DBI将使用DBI_USER,DBI_PASS环境变量分别作为其值。如果你没有定义主机的话,那么默认的是“localhost”,如果你没有定义端口号的话,以默认的mysql的端口号(3306)作为端口号。

prepare:
通过数据库引擎预备SQL语句并且返回一个语句句柄($sth)用于参与execute方法,例如:
$sth = $dbh->prepare($statement) or die "Can't prepare $statement: $dbh->errstr\n";
do
do方法预备并执行一个SQL语句,返回作用的行的数目,这个方法通常用于非select的语句,同时一般不需要执行多次(例如:insert,delete等)。例如:
$rc = $dbh->do($statement) or die "Can't execute $statement: $dbh- >errstr\n";
disconnect
disconnect将断开与数据库的连接,通常在程序结束的时候使用。例如:
$rc = $dbh->disconnect;
quote
quote方法用于 "escape"任何在字符串中的特定自负,并且加上引用标记。
$sql = $dbh->quote($string)
execute
该方法执行一个存储的语句。对于非select的语句来说,它返回作用的行的数目,对于select语句来说,该方法仅仅是开始了在数据库中查询,你需要fetch_*方法来取回数据。
$rv = $sth->execute or die "can't execute the query: $sth->errstr;
fetchrow_array
这个方法取回下一行的数据,并且将其存储在一个数组之中。例如:
while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); }
fetchrow_arrayref
这个方法取回下一行的数据,并将其返回在一个对数组的引用之中。例如:
while($row_ref = $sth->fetchrow_arrayref) { print qw($row_ref->[0]\t$row_ref->[1]\t$row_ref->[2]\n); }
fetchrow_hashref
这个方法取回一行数据,并且返回一个到包含了字段名/值的哈希表的引用。这个方法不如使用一个数组引用的方法有效率。例如:
while($hash_ref = $sth->fetchrow_hashref) { print qw($hash_ref->{firstname}\t$hash_ref->{lastname}\t\ $hash_ref- > title}\n); }
fetchall_arrayref
这个方法被用来从一个SQL语句的执行结果中取回所有的数据(行)。它返回一个数组的引用,你可以通过一个循环来打印/显示这些数据。
my $table = $sth->fetchall_arrayref or die "$sth->errstr\n"; my($i, $j); for $i ( 0 .. $#{$table} ) { for $j ( 0 .. $#{$table->[$i]} ) { print "$table->[$i][$j]\t"; } print "\n"; }
finish
指示没有更多的数据可以被取出,你可以通过这个方法释放语句句柄,并且释放系统资源。例如:
$rc = $sth->finish;
rows
返回在(updated,delete等)操作中作用的行的数目。这通常被用在do()或者非select的execute()语句之后。例如:
$rv = $sth->rows;
NULLABLE
返回一个数组的引用,TRUE分别表示这个列可以允许NULL。
$null_possible = $sth->{NULLABLE};
NUM_OF_FIELDS
通过SELECT或者LISTFILEDS语句返回的列的数目。如果数目为0表示一个非SELECT语句的执行,例如,INSERT,DELETE或者UPDATE等。
$nr_of_fields = $sth->{NUM_OF_FIELDS};
data_sources
这个方法返回在localhost中的mysql服务中可用的数据库的数组。
@dbs = DBI->data_sources("mysql");
ChopBlanks
这个方法决定了返回的行中是否去除空格。
$sth->{'ChopBlanks') =1;


insertid
如果你使用了mysql的自动增值的特性,那么最新的自动增值将被存储。例如:
$new_id = $sth->{insertid};
is_blob
返回一个数组的引用,TRUE分别表示所指示的列是BLOB。
$keys = $sth->{is_blob};
is_key
返回一个数组的引用,TRUE分别表示所指示的列是KEY。
$keys = $sth->{is_key};
is_num
返回一个数组的引用,TRUE分别表示所指示的列包含了数字。
$nums = $sth->{is_num};
is_pri_key
返回一个数组的引用,TRUE分别表示所指示的列是一个主键。
$pri_keys = $sth->{is_pri_key};
is_not_null
返回一个数组的引用,FALSE表示这个列可以包含NULL,而你最好使用DBI标准中的NULLABLE属性。
$not_nulls = $sth->{is_not_null};
max_length、length
返回一个指示最大列的尺寸的数组的引用。最大长度是指在结果的表中的最大数值,LENGTH给出了理论上的最大值。
$max_lengts = $sth->{max_length}; $lengts = $sth->{length};
NAME
返回一个列名称的数组的引用。
$names = $sth->{NAME};
table
返回了表名称的数组的引用。
$tables = $sth->{table};

中文

$dbh->do("SET character_set_client='gbk'");
$dbh->do("SET character_set_connection='gbk'");
$dbh->do("SET character_set_results='gbk'");

分享到:
评论

相关推荐

    mysql依赖项perl和linux下安装详细过程

    例如,`DBI`和`DBD::mysql`模块是Perl与MySQL交互的标准接口,它们允许编写perl脚本来连接、查询和管理MySQL数据库。 安装MySQL 5.5.1和其依赖Perl的详细过程如下: 1. **更新系统**:确保你的CentOS 6.8系统是...

    Perl+Mysql虚拟商场虚拟系统

    Perl通过SQL语句与MySQL数据库进行交互,实现数据的读取、插入和更新,确保数据的安全性和一致性。 购物车功能是这个系统的核心部分,用户可以方便地添加、删除或调整购物车中的商品数量。这一功能的实现涉及Perl对...

    perl_5.32.0.1-mysql_5.7.31.zip

    **Perl与MySQL的结合**: Perl具有强大的数据库接口模块,如DBI(Database Interface)和DBD(Database Driver),可以方便地与MySQL等数据库系统交互。DBI是Perl中的数据库抽象层,提供了一个标准的API,让程序员...

    Linux下的MySQL依赖包(所有perl).rar

    它实现了DBI接口,使得Perl脚本可以直接与MySQL进行通信,执行SQL查询,处理结果集等。 除了这两个核心模块,其他可能包含的Perl模块可能有: 3. DBIx::Class:这是一个面向对象的数据库抽象层,基于DBI,提供了更...

    Perl+MySql易影中国电影程序

    3. **数据交换**:Perl CGI脚本与MySQL数据库之间的通信,通常通过SQL语句完成,例如SELECT、INSERT、UPDATE和DELETE,来操作电影数据库。 4. **安全性**:尽管描述中没有提及,但实际部署时应考虑安全措施,如对...

    Perl 链接Mysql 数据库的Module

    Perl 链接Mysql 数据库的Module

    perl-mysql.rar

    通过正确地解压和执行指定的 `rpm` 命令,用户可以在没有互联网连接的情况下,确保 Perl 能够顺利地与 MySQL 数据库进行交互,从而完成 MySQL 的安装和管理任务。这体现了 Perl 的灵活性和 MySQL 的广泛应用性,以及...

    perl 模块(spreadsheet、XML::Simple、DBB::mysql等模块)

    3. DBD::mysql:这是Perl与MySQL数据库进行交互的主要接口,它是Perl的Database Driver Interface (DBI)的一部分。DBD::mysql允许Perl程序连接到MySQL服务器,执行SQL查询,处理结果集,甚至进行事务处理。通过DBD::...

    Perl_by_Example

    Perl与MySQL、PostgreSQL等数据库系统的结合,使得它成为服务器端脚本的强大工具。 学习Perl by Example,读者不仅能掌握Perl编程的基础,还能了解到Perl社区的生态环境,包括Perl的最佳实践、编程风格以及社区资源...

    DBD-mysql-4.011.tar.gz

    这个模块使得Perl程序能够与MySQL数据库进行交互,它提供了连接、查询、结果处理等基本功能,是Perl开发数据库应用的重要工具。在本例中,它是Postfix邮件服务器extmail系统的一个必要组件,主要用于处理与数据库...

    DBD-mysql-4.031

    总之,DBD-mysql-4.031是Perl与MySQL数据库之间的重要桥梁,而Percona Toolkit则提供了一系列实用的工具,两者结合可以极大地提升MySQL数据库的管理和维护效率。对于任何涉及Perl编程和MySQL数据库的IT专业人员来说...

    mysql2pgsql.perl

    mysql迁移到postgresql工具 mysql2pgsql.perl,支持环境 Linux / Mac OS / BSD / Solaris

    mysql 5.7 perl

    离线安装mysql文件包,包含依赖,以及peal全套安装包

    安装bugzilla4.2.2需要的perl模块

    1. **DBI** 和 **DBD::mysql**: 这两个模块是Perl与MySQL数据库通信的接口。DBI是通用的数据库接口,而DBD::mysql是针对MySQL的具体实现,Bugzilla需要它们来存储和检索数据。 2. **CGI**: CGI模块是用于编写Web...

    Apache,.MySQL,.memcached和Perl开发Web应用程序

    中文名: Apache, MySQL, memcached和Perl开发Web应用程序 原名: Developing Web Applications with Apache, MySQL, memcached, and Perl 作者: Patrick Galbraith资源格式: PDF 版本: 文字版 出版社: Wrox书号: ...

    perl连接mysql安装方法.docx

    在Perl编程中,连接MySQL数据库通常需要两个关键模块:DBI(Database Interface)和DBD(Database Driver for),其中DBI是Perl与各种数据库交互的标准接口,而DBD是具体的数据库驱动,例如DBD::mysql用于连接MySQL...

    perl-DBD-MySQL-4.013-3.el6.x86_64.rpm

    perl-DBD-MySQL-4.013-3.el6.x86_64.rpm

    DBI、Data-ShowTable、DBD-mysql

    这里我们关注的是三个关键组件:DBI、Data-ShowTable和DBD-mysql,它们都是Perl与MySQL数据库交互的重要工具。 首先,DBI(Database Independent Interface)是Perl的一个模块,提供了一个统一的接口,使得Perl程序...

    使用开源工具mysqlreport监控Mysql数据库-简易使用方法.pdf

    3. **DBD::mysql**: 这是 Perl 的 MySQL 驱动,允许 Perl 与 MySQL 数据库交互。你可以从 http://search.cpan.org/dist/DBD-mysql/lib/DBD/mysql.pm 找到并下载。在安装过程中,如果遇到问题,可以按照提示在命令行...

    perl-DBD-MySQL-3.0007-2.el5.x86_64.rpm

    An implementation of DBI for MySQL for Perl.

Global site tag (gtag.js) - Google Analytics