PerlDBI基础.docxVIP

/sjk/mysql169313_1.htmlPerlDBI基础育龙网?WWW.CHINA-B.C0M?? 2009年08月25日?来源：互联网/育龙网核心提示：?本节提供DBI 的背景信息—在编写自己的脚本和支持其他人编写的脚本时，需要这些信息。如果已经熟悉DBI，则可以略过这节，直接跳到7 .本节提供DBI 的背景信息—在编写自己的脚本和支持其他人编写的脚本时，需要这些信息。如果已经熟悉DBI，则可以略过这节，直接跳到7 . 3节“运行DBI”。DBI 类型从某些方面来说，使用Perl DBI API 类似于使用第6章介绍的C 客户机库。在使用C 客户机库时，主要依靠指向结构或数组的指针来调用函数和与MySQL相关的。在使用DBI API 时，除了函数称为方法，指针称为引用外，也调用函数和使用指向结构的指针。指针变量称为句柄，句柄指向的结构称为对象。DBI 使用若干种句柄。它们往往通过表7-1所示的惯用名称在DBI 文件中引用。而惯用的非句柄变量的名称如表7 - 2所示。实际上，在本章中，我们并不使用每个变量名，但是，在阅读其他人编写的DBI 脚本时，了解它们是有用的。表7-1惯用的Perl DBI 句柄变量名名称说明$dbh库对象的句柄$sth语句。本章中的其他DBI 脚本也是这样。在参数缺省时，本章下载脚本的权限设置为只允许读。如果您将自己的MySQL用户名和口令放在它们之中，我建议将它们保留为这种方式，以便其他人不能读取这些值。以后，在7 . 2 . 8节“指定连接参数”中，我们将看到如何从选项文件中获得这些参数，而不是将它们直接放在脚本中。现在，让我们逐行看完这个脚本。第一行是标准行，指出哪里可以找到Perl 的指示器：#! /usr/bin/perl在本章将要讨论的脚本中，每个脚本都包含这行；以后不再说明。此脚本中至少应该含有一个简短的目的说明，这是一个好主意，所以下一行是一个注释，给阅读此脚本的人提供一个关于它做什么的线索：# dump_members.dump Historical League‘s membership list从‘#’字符到行尾部的文本为注释。有必要做一些练习，就是在整个脚本中编写一些注释来解释它们如何工作。接下来是两个use 行：use DBI;use strict;use DBI 告知Perl 解释程序它需要引入DBI 模块。如果没有这一行，试图在脚本中做与DBI 相关的任何事，都将出现错误。不需要指出想要哪个DBD 级别的模块。在连接库时，DBI 会激活相应的模块。use strict 告知Perl，在使用它们之前需要声明变量。如果没有use strict 行，也可以编写脚本，但是，它有助于发现错误，所以建议始终要包括这行。例如，置为严格模式时，如果声明变量$ my _ v a r，但是之后错误地用$mv_var 来，则在运行这个脚本时，将获得下面的消息：Global symbol $mv_var requires explicit package name at line n这个消息会使您想，“怎么了？$ m v _ v a r？我从未使用过这种名称的变量！”，然后，找到脚本中的第n行，看是什么问题，并改正它。如果不用严格模式， Perl 不会给出$ m v _ v a r；将只是简单地按具有un d e f，还是因为出现错误而终止做出确定是很困难的。当然，任何一种方式，循环都将终止，但是如果出现错误，则将删截脚本的输出。如果没有错误检查，运行该脚本的人将无法知道是否有错！如果自己检查错误，应该检查提取循环的结果。处理不返回结果集的查询D E L E T E、INSERT、REPLACE和UPDATE等执行后不返回行的语句比S E L E C T、DESCRIB、EXPLAIN 和SHOW 等执行后返回行的语句的处理相对要容易一些。为处理一条非SELECT 语句，利用库句柄，将它传递给do。do 方法在一个步骤内准备和执行该查询。例如，开始输入一个新的成员， Marcis Brown，终止日期为2002 年6 月3 日，可以这样做：do 方法返回涉及行的计数，如果出现错误，则返回un d e f。因为各种原因，可能出现错误（例如，这个查询可能是畸形的，或可能没有这个表的权力）。对于非undef 的返回，注意那些没有受到影响的行的情况。当这种情况发生时， do 不返回数字0；而是返回字符串“0 E 0”（0的Perl科学计数法形式）。“0 E 0”在数值上等价于0，但是，在条件测试中将其视为真，以便可以将其与早期的undef 区别。如果do 返回0，则区分是出现了错误（ un d e f）还是“没有受到影响的行”这两种情况将更困难。使用下面的两个测试之一可以检查错