|
发信人: mark7312(小马哥) 整理人: workingnow(2002-09-30 12:01:53), 站内信件 |
| Perl原来主要用于编写一些Unix系统上的管理和监控程序，由于Perl与Unix系统紧密相连，故后来很多人都喜欢采用Perl来编写CGI程序。现在相当一部分企业都会采用NT平台，但大部分仍然采用Perl进行应用开发。因为它具有良好的通用性和强大的字处理能力，即使以后改用Unix系统（可能由于接入用户数增多，访问量加大），程序修改量也不大（VBScript则无法移植，VBScriptWindowsonly)。
----与其它CGI编写语言（VBScript、JavaScript-forserver、CShell、C/C++...）相比，Perl具有以下5个优点： ----1具有高度可扩展性和随时可用。 ----2具有非常强大的字串处理功能。 ----3很容易调用系统命令（shellcommands），易于编写Unix系统程式。 ----4具备面向对象的编程能力，代码的可维护性、复用性好。 ----5适用于各类Web服务器（如：Unix、NT、Netscape），具有良好的通用性。 ----由于具有以上的优点，故可以相信无论以后Internetserver（包括Webserver）的主导是NT（IIS）还是Unix（NCSA、apache...），Perl都会是炙手可热的CGI编写语言。 一CGI基本原理 ----client＜--->Webserver＜--->CGI＜---> DataBase/ServerFile/ServerEnvironment ----当某些Web页面能够产生动态文件，让你填入表格，显示精彩动画，或是收发大型数据库信息，读取和设置各类服务器/路由器环境变量和状态，八成是利用公共网关界面，也就是所谓的CGI(CommonGatewayInterface)。 ----CGI本身不是一种程序语言，而是Webserver与DataBaseServer/其它Server之间交互作用的机制。利用CGI，软件工程师得以让Web页面可直接读取和设置各类服务器/路由器、检索各类大型数据库等。 二开发环境的建立 ----如果你采用的WebServer是基于unix系统的，只需安装相应的perl编译程序即可；如果是基于Windows95/NT的则除了安装好编译程序外，还要在注册表中作登记。下面以IIS（MicrosoftWebServer，NT自带）为例。 ----当你在NT上装好Perl编译程序后，需进行以下几项的设置，IIS才会支持Perl程序的调用。 ----1)运行Regedt32.exe注册表编辑器（如果不知在哪里，可用search找） ----2)打开下面的目录（准备添加信息进该目录） ----HKEY_local_machineSystemCurrentControlSet ServicesW3SVCParametersScriptMap ----3)在EDIT菜单下选择‘添加数值’选项 ----4)´数值名称´填.pl ----5)‘数值类型’填REG_SZ ----6)按确定后，再填写‘字符串’ ----‘字符串’=c:perl5inperl.exe%s%s ----（如果你的perl.exe文件不是位于该目录，只要填上相应路径即可。） ----7)重新起动WebServer ----注：如果是其它WebServer，修改方法类似。希望获取perl编译程序（免费软件）或相关帮助资料，可到相关的站点上进行查找。下面列出部分网址供大家参考。 http://202.96.151.200/zyr/ http://www.perl.hip.com/ http://www.roth.net/odbc/ ftp://ftp.linux.activeState.com/pub/Perl-Win32/ ----当一切准备妥当后，就可以着手开发一些程序了。下面将会以一些简单、有用的例子帮助大家理解一些利用perl开发Internet/Intranet应用的方法和技巧。 三利用Perl开发Internet/Intranet应用的方法与技巧 ----1Perl5.0的某些语法 ----为了方便大家对后面内容的理解，在这里先介绍一些perl5.0的基础知识。 ----1）变量（对象）的表示方法：前面以$打头，如:$db,$bcd ----2）普通阵列的表示方法:前面以@打头，如:@value ----读取方式：$value[0],$value[1]... ----3）相关阵列的表示方法:前面以%打头，如:%value ----相关阵列与普通阵列没有什么不同，差别只在它的索引值是用字串，而非一般常用的整数值。 ----读取方式：$value{$string1},$value{$string2}... ----4）读写文件用open命令 ----如：open(INPUT,"＜zyr.txt"); ----读文件用“＜”、写文件用“>”、追加文件用“>>” ----2强大的字串处理功能 ----在前面已提过perl具有非常强大的字串处理功能,它除了提供一些字符运算比较符（eq,ne,le...）外，还提供了大量针对字符串匹配的参数。这是其它一些cgi编写语言所不具有的。 ----我们经常会遇到，传递的参数是中文信息，但接收到后却都是乱码。这是什么原因呢?我们都知道，一个中文占用2个字节，而一个英文字母只占用1个字节，unicode编码除外(unicode是Microsoft提出的标准,采用16位同时对中英日韩等多国文字进行编码的机制)。server接收到参数信息后，会以字节为单位把每单位信息转换为两个十六进制数，这时候，中文的高字节会被转换为"%**"，而低字节也被转换为"%**"。如果使用perl，该参数信息非常容易就能被还原出来。 ... $info=$ENV{´QUERY_STRING´}; #读取参数信息到变量$info中 $info=~s/%([dA-Fa-f][dA-Fa-f]) /pack("c",hex($1))/eg; ----该语句的语法含义是：s是取代的意思；"/"中的内容是要找的格式（“=~”是一些特殊字符，具体含义见表一）；%([dA-Fa-f][dA-Fa-f])表示以%开始，后连续跟着两个十六进制数的字串（dA是一些字符匹配格式，具体含义见表二），找到该字串后，系统把该值存放在$1中；pack("c",hex($1))表示把$1中的数转换为真正的十六进制字串；e表示把整个要替换的字串当做表达式；g表示整个字串都要做相应的查找替换。 ----除了转换中文参数外，我们还经常要面对查找、替代诸如log文件、邮件等大量信息的困难；如果使用perl提供的一系列参数，将省去很多不必要的麻烦。限于篇幅关系，下面仅列出一些常用的参数。 ----表一： =~寻找给定字串的特殊格式 m取消//内“^”、“$”的特殊含义 i字串匹配时不考虑大小写 x字串匹配时不考虑空格 s取代的意思 表二： w匹配一个文字或数字字符，包括“_” W匹配一个非文字/数字字符 s匹配一个空白字符，包括“space”、“tab”键入的字符 S匹配一个非空白字符 d匹配一个数字字符 D匹配一个非数字字符 匹配一个二进制字符 B匹配一个非二进制字符 A仅从字串开始进行匹配 ---- 小马哥 
美丽的梦和美丽的诗一样,都是可遇而不可求的, 常常在最没能料到的时候里出现 |
|
[关闭][返回] |