PERL如何利用WIN32ODBC插件与数据库结合

PERL如何利用WIN32ODBC插件与数据库结合

Perl 以前多数应用在Unix平台上，但最近随着微软在Internet方面的重视和投入，NT在Internet方面也占有了一席之地。相当一部分编程人员也从Unix平台转向 NT平台，Perl程序的移植非常容易做到，唯一需要注意的是：在 Unix下连接数据库时，与具体连接的数据库接入格式和相应的扩展程式有关，而且各不一样，如:与Oracle连接采用Perl-Oracle沟通界面—oraperl/DBI Extension；而在Win NT/95下，连接数据库时，则多数采用统一的格式和标准—ODBC（开放式数据库连接）server与我们这里提到的ODBC插件(For Perl)。
与其它CGI编写语言（VBScript、JavaScript-for server、C Shell、C/C++...）相比，Perl具有以下5个优点：
  1 具有高度可扩展性和随时可用。(ODBC.pm就是其中的一个插件）
  2 具有非常强大的字串处理功能。
  3 很容易调用系统命令（shell commands），易于编写Unix系统程式。
  4 具备面向对象的编程能力，代码的可维护性、复用性好。
  5 适用于各类Web服务器（如：Unix、NT、Netscape），具有良好的通用性。
  由于具有以上的优点，Perl理所当然地成为了编写CGI中最热门的语言。

  一 Perl简介
  Perl原来主要用于编写一些Unix系统上的管理和监控程序，由于Perl与Unix系统紧密相连，故后来很多人都喜欢采用Perl来编写CGI 程序。现在相当一部分企业都会采用NT平台，但大部分仍然采用Perl进行应用开发。因为它具有良好的通用性和强大的字处理能力，即使以后改用Unix系统（可能由于接入用户数增多，访问量加大），程序修改量也不大（VBScript则无法移植，VBScript Windows only)，故可以相信无论以后Internet server （包括Web server）的主导是NT（IIS）还是Unix（NCSA、apache...），Perl都会是炙手可热的CGI编写语言。

  1 CGI基本原理
  client<--->Web server<--->CGI<--->DataBase/Server File/Server Environment
  当某些Web页面能够产生动态文件，让你填入表格，显示精彩动画，或是收发大型数据库信息，读取和设置各类服务器/路由器环境变量和状态，八成是利用公共网关界面，也就是所谓的 CGI(Common Gateway Interface)。
  CGI本身不是一种程序语言，而是Web server与DataBase Server/其它Server之间交互作用的机制。利用CGI，软件工程师得以让Web页面可直接读取和设置各类服务器/路由器、检索各类大型数据库等。

  2 使IIS（Microsoft Web Server，NT自带）支持Perl程序当你在NT上装好Perl编译程序后，需进行以下几项的设置，IIS才会支持Perl程序的调用。

  1) 运行Regedt32.exe 注册表编辑器（如果不知在哪里，可用search找）
  2) 打开下面的目录（准备添加信息进该目录）
  HKEY_local_machineSystemCurrentControlSetServicesW3SVCParametersScriptMap
  3) 在EDIT菜单下选择‘添加数值’选项
  4) '数值名称'填 .pl
  5)‘数值类型’填REG_SZ
  6) 按确定后，再填写‘字符串’
   ‘字符串’= c:perl5binperl.exe %s%s
   （如果你的perl.exe文件不是位于该目录，只要填上相应路径即可。）
  7) 重新起动Web Server

  3 ODBC插件的安装
  ODBC插件是电脑爱好者用V C++ 2.0编写的一个Perl for Win32的部件，相当于我们用C++编写程序时使用的类，只要定义一个属于该类的对象，就可调用它的属性和method。Perl for Win32的部件很多都是电脑爱好者编写的，使用也是免费的，如同Linix的建设一样。如果你编出一些好的部件，也可在网上公布，让更多的朋友与你分享。下面我将简单介绍一下ODBC插件的安装步骤和注意事项。

  注意事项：
  1）ODBC插件的版本要比Perl的版本高，也就是说ODBC插件的出版日期要迟于Perl的出版日期。建议采用ODBC插件的最新版Win32odbc_v970208(97年2月28日出版),5.001版的Perl--110-i86(96年8月13日出版);很多人经常会装上最新版的Perl 5.003系列(97年6/7/8/9月出版),结果运行ODBC调用的程序时，就会出现以下的错误信息：'Error:Parse exception'.如果不了解情况，这确实让人非常困惑不解。
  2）110-i86.zip是一个zip文件，但是download后，系统会默认为exe文件，你要把文件后缀名改为zip。
  3）如果你仅想在DOS下运行程序，只需在‘我的电脑’中添加上该类型（.pl）即可。如果你想在Web上调用Perl程序,则必须在Web Server的注册表上登记，不同的Web Server上注册的方式将有少许不同，有关IIS的登记上面已作介绍。
  4）如果你运行ODBC调用的程序时，出现以下的错误信息：'can't locate win32/odbc.pm in @INC ...'。这通常是你的ODBC插件没有装好，应该首先检查odbc.pm和odbc.pll是否已拷贝到相应的目录上。（后面有介绍）
  5）如果需要以上的软件和帮助，可到响应的站点上查找。下面列出部分网址供大家参考。
  http://202.96.151.200/zyr/
  http://www.perl.hip.com/
  http://www.roth.net/odbc/
  ftp://ftp.linux.activeState.com/pub/Perl-Win32/

  安装步骤：
  1）先解开Win32odbc_v970208.zip文件，存在某个目录下。
  2) 拷贝文件 libwin32odbc.pm 到 perl5libwin32 （如果你的Perl目录不是这样，作相应修改即可。）
  3）在perl5libautowin32 目录下创立odbc目录。
  4）拷贝文件 libautowin32odbcodbc.pll到perl5libautowin32odbcodbc.pll

  4 Perl 5.0的某些语法
  连接数据库后，对数据进行处理时，我们将会用到Perl 5.0的一些语句。在这里先介绍一些基础知识，对后面内容的理解将非常有帮助。
  1）变量（对象）的表示方法：前面以$打头，如:$db,$bcd
  2）普通阵列的表示方法:前面以@打头，如:@value
  读取方式：$value[0],$value[1]...
  3）相关阵列的表示方法:前面以%打头，如:%value。相关阵列与普通阵列没有什么不同，差别只在它的索引值是用字串，而非一般常用的整数值。
  读取方式：$value{$string1},$value{$string2}...

  二用Perl通过ODBC创建数据库应用程序
  利用ODBC类，可以十分方便地实现Web server与数据库的动态连接,在Internet/Intranet上开发出client/server结构的数据库应用程序。

  1 数据库访问结构图
  client<->Web Server<->CGI(perl,odbc插件)<->odbc server<->各类数据库

  2 ODBC插件的数据库命令
  （1）使用ODBC类
  use Win32:ODBC;
  当要使用ODBC类时，必须在你的程序里加入上这一行。

  （2）创建ODBC的对象
  $db=new Win32::ODBC("MYDSN");
  接着我们要定义一个新的ODBC类的对象，这个对象与要连接的数据库的别名是相关联的；即在MYDSN处填上要连接的数据库在ODBC server（安装后放在控制面板里）中设置的别名。如果要访问的数据库需提供用户名和密码，可改用下面的格式：
  $db=new Win32::ODBC("DSN=aa;UID=bb;PWD=cc;");
  （其中aa填别名，bb填用户名，cc填密码）
如果你连接的是Access数据库，可采用第一种方法，因为在ODBC Server中连接Access数据库时可设置用户名和密码；如果你连接的是SQL数据库，只能采用第二种方法，因为在ODBC Server中连接SQL数据库时不能设置用户名和密码。

  （3）连接数据库
  $db->Connection;
  连接成功时返回true，否则返回false。

  （4）断开数据库连接
  $db->Close();

  （5）执行命令
  $db->sql("sql command");
  sql command 为一有效的sql语句表达式

  （6）读取新一行的数据（操作对象为刚执行完sql语句后的结果）到缓冲区
  $db->FetchRow();
  和其他语言中的游标往下移一行同效，当刚执行完sql语句后，再执行上述语句，相当于读取第一条记录数据。

  （7）把数据从缓冲区存放到变量中
  ($a,$b)=$db->Data("f1","f2");
  （$a、$b为变量，f1、f2为字段名）

  （8）把数据从缓冲区存放到普通阵列中
  @values=$db->Data;
  （把字段值依此放入@values中）

  （9）把数据从缓冲区存放到相关阵列中
  %hash=db->DataHash;
  （字段值可用$hash{字段名} 读取）

  关于ODBC类的方法详见下表：
方法           功能              参数             备注
Catalog()     读出table信息前的设置       qualifier,owner,name,type   与TableList()连用
Connection()    连接数据库            无
Close()      关闭数据库连接          无
Data()       取数据              字段名/无
DataHash()     取数据到相关阵列         字段名/无
DataSources()   取被连接数据库的别名及相关描述   无
Drivers()     取ODBC Server的名字及相关属性   无
DumpError()    显现最后的出错环境        无               debug用
DumpData()     显现所有字段名和数据       无               debug用
Error()      显现最后的相关出错信息      无               debug用
FetchRow()     读取新一行的数据         无
FieldNames()    读取字段名            无
GetConnections   读取所有对象的连接状态      无
GetDSN()      读取连接时所用的字串       无
GetStmtCloseType() 读取当前数据库关闭类型的设置   无
GetMaxBufSize()  读取单个字段的最大字节数     无
MoreResults()   判断是否还有下一个记录      无
new()       创立新的对象           类的名称
RowCount()     返回记录数            无
Run()       运行sql语句           sql语句
SetMaxBufSize()  设置单个字段的最大字节数     变量/整数(<2G)
SetStmtCloseType() 设置当前数据库关闭类型      SQL_CLOSE/SQL_DROP/     SQL_UNBIND/SQL_RESET_PARAMS
Shutdown()     关闭ODBC连接           无              debug
Sql()       执行sql语句           sql语句  　
TableList()    读出table的信息         无

  三 Perl通过ODBC开发数据库应用实例
  下面,我们将以一个实例来介绍如何用Perl编写一个网址查询系统。有关环境配置如下：操作系统是Windows NT Server 4.0,数据库平台为
SQL 6.5，Web Server 为IIS 2.0,ODBC Server 为ODBC 2.5,perl 的版本为5.001,odbc插件的版本为970208。

  1 数据库结构   首先，假设已经存在一个名叫lookup的table供我们查询使用。它放在pub(database)中,用username="sa"、passwd=""可以访问,结构如下：
  段名    属性     功能
  title   char(40)   网页的名称
  url    char(40)   网页地址
  descr   char(240)   网页描述信息

  2 输入查询关键字（search.html）
<html>
<head>
<title>search.html</title>
</head>
<body>
<form action="http://10.240.9.30/scripts/se.pl" method="GET">
<input type="text" name="key">
</form>
</body>
</html>

  注释：10.240.9.30为的Web Site地址

  3 查询及返回结果（se.pl）
#header
print "HTTP/1.0 200 OKn";
print "Content-Type:text/htmlnn";

#body
use Win32::ODBC;
if (!($O= new Win32::ODBC("DSN=sql6;UID=sa;PWD=;"))){
print "Failure connection nn";
exit();
}
$O->Connection;

$String=$ENV{'QUERY_STRING'};
($Name,$Key)=split(/=/,$String);
# $key存放着查询关键字

$s_sql=join("","select * from lookup where title like'%",
$key,"%'");
$O->Sql($s_sql);

print "<HTML>n";
print "<HEAD>n";
print "<TITLE>se.pl</TITLE>n";
print "</HEAD>n";
print "<BODY>n";
print "<table>n";
while($O->FetchRow()){
%hash=$O->DataHash;
print "<tr><td align=left>$hash{title}</td>
<td><a href='$hash{url}'>$hash{descr}</a></td></tr>n";
}
$O->Close();
print "</table>n";
print "</BODY>n";
print "</HTML>n";