zh-CNiwms.net pic/logo.gif http://www.blue1000.com Sun, 17 Apr 2005 05:06:37 GMT Sun, 17 Apr 2005 05:05:51 GMT ------以在程序中自动收发邮件为例
----CGI的推出就是为了使WebServer可以与更多的数据源沟通，常用的数据源有三种：数据库、非关系型数据文件（如txt文本）、邮件系统。前二者的连接和读写都有很多的方法，这里就不再相述。我主要想谈谈在CGI程式中怎样才能读取到邮件系统的邮件，自动发送邮件又是怎样进行的。Microsoft最近推出了ADO（ActiveXDataObject),只要相应数据源能提供OLEDB(DataProviderInterfaces)，我们的应用程序就可调用ADO透明的访问该数据源（包括前面我们提到的三种数据源）。这种应用在邮件系统方面现在还只限于在Micr]]> Sun, 17 Apr 2005 05:05:07 GMT ----虽然client经常向服务器申请的都是text/html文件，但是服务器也可以回送GIF、JPG等图形文件，我们只需在数据的header中指明即可。假如我们用语句调用CGI程式,向服务器申请一个GIF文件，则服务器收到请求后会以二进制码的形式回送一个GIF的图形文件给client。te.pl源程序如下：
#!/bin/perl
#如果该路径已加入PATH中，上句可省
$MY_FILE_NAME='c:/InetPub/wwwroot/photo/1.gif';]]> Sun, 17 Apr 2005 05:04:33 GMT ----在前面已提过perl具有非常强大的字串处理功能,它除了提供一些字符运算比较符（eq,ne,le...）外，还提供了大量针对字符串匹配的参数。这是其它一些cgi编写语言所不具有的。
----我们经常会遇到，传递的参数是中文信息，但接收到后却都是乱码。这是什么原因呢?我们都知道，一个中文占用2个字节，而一个英文字母只占用1个字节，unicode编码除外(unicode是Microsoft提出的标准,采用16位同时对中英日韩等多国文字进行编码的机制)。server接收到参数信息后，会以字节为单位把每单位信息转换为两个十六进制数，这时候，中文的高字节会被转换为"%**"，而低字节也被转换为"%**"。如果使用]]> Sun, 17 Apr 2005 05:03:10 GMT ----1 Perl5.0的某些语法
----为了方便大家对后面内容的理解，在这里先介绍一些perl5.0的基础知识。
----1）变量（对象）的表示方法：前面以$打头，如:$db,$bcd
----2）普通阵列的表示方法:前面以@打头，如:@value
----读取方式：$value[0],$value[1]...
----3）相关阵列的表示方法:前面以%打头，如:%value
----相关阵列与普通阵列没有什么不同，差别只在它的索引值是用字串，而非一般常用]]> Sun, 17 Apr 2005 05:01:53 GMT ----与其它CGI编写语言（VBScript、JavaScript-forserver、CShell、C/C++...）相比，Perl具有以下5个优点：
----1具有高度可扩展性和随时可用。
----2具]]> Sun, 17 Apr 2005 05:01:09 GMT 1、下载PERL For Win32程序：Pw32i316.exe，1.47M。
它只是PERL For Win32的一个版本，你可以到“http://www.activestate.com”去下载，那儿有很多版本的PERL For Win32，你也可以到我的主页上去下载，我的主页地址为：“http://comenet.yeah.net”。
2、安装PERL For Win32，这个操作就比较简单了。
执行Pw32i316.exe，它是个自解压的压缩文件，解压至“c:\perl\”后自动安装，系统会分别提问]]> Sun, 17 Apr 2005 05:00:09 GMT 1. 安装、设置TCP/IP协议
2. 安装、设置Web服务器
3. 安装PERL for Win32
详细介绍各个步骤：
一、安装、设置TCP/IP协议
如果您已经可以通过拔号正确连上Internet，这说明你的TCP/IP已经正确安装，不过你还得耐心看下去哟！进入“控制面板”，双击“网络”图标，出现“网络”的对话框，这里已经安装了TCP/IP。假设TCP/IP不存在，要添加它，只需单击“添加”按钮，选择“协议” 后单击“添加”按钮，请选择“Microso]]> Sat, 16 Apr 2005 03:11:01 GMT 　　$string="ww22cgi44";
　　$string=~s/(d+)/$1*2/e;
　　(d+)代表要找寻$string中一个或是多个数值的字符串,再将找到的字符串设成
$1。加上参数e是代表要把$l*2当作是一个运算式,所以$string="www44cgi44";
　　$string="www22cgi44";
　　$string=~s/(d+)/$1*2/eg;
　　加上参数e,所以会把$1*2当作是一个运算式来看, 加上参数g就会把全部符合数 值
的字符串经过运算式运算之后再把它取代,所以$string="www44cgi88";
范例四:
　　假设原本的字符串是$v]]> Sat, 16 Apr 2005 03:10:21 GMT 语法:s/PATTERN/REPLACE/eg
其中PATTERN是文字处理(Regular Expression)的模式,REPLACE是代表取代成何种文
字 模式。而g是这个函数最常用的参数,代表要把所有符合文字模式的字符串 全部取
代,如果省略这个参数的话,则只取代一个符合文字模式的字符串;而加上e这 个参数是代
表要将REPLACE的部分当成一个运算式,如果没有这个需要的话,就不用加 上这个参数。
说明:将符合文字处理模式的字符串取代成为要取代的字符串。
范例一:
　　$string="i;love;perl";
　　$string=~s/:/*/：　　　#此时$str]]> Sat, 16 Apr 2005 03:09:54 GMT 说明:这是Perl语言中特有的语法,通常会和文字处理模式来作运算。
范例:
　　print"请输入一个字符串!n";
　　$string=代表标准输入,会让使用者输入一字符串
　　chop($string);　　#将$string最后一个换行的字符n删除掉
　　if($string=~/cgi/){ 　
　　　print"输入的字符串中有cgi这个字符串!n";
　　}
　　如果输入的字符串中含有cgi这个字符串的话,就会显示出这个信息。
　 ------------------------------------------------------------]]> Sat, 16 Apr 2005 03:09:12 GMT 在perl程序写作中常会用到=~和!~这两个运算符及s和tr这二个函数来和文字处理模式/pattern/搭配而成一个运算式,如果能够活用这些指令的话,就可以很轻易地来处理一些字符串，当然在CGI程序设计中也就更能得心应手了。现在就让作者来介绍这些运算符及函数的用法：
--------------------------------------------------------------------------
指令: /pattern/文字运算
说明:如果在文字运算中没有使用=~或是!~运算符指定一个字符串来做运算的话, 就会]]> Sat, 16 Apr 2005 03:08:37 GMT 看了上一小节文字处理模式〈RegularExpression)之后,初学者对于这个语法的应用可能 还不是很清楚,所以笔者会在这一小节中,举出一些在文字处理模式中常用的范例给大家瞧瞧：
范例说明:
/perl/ 找到含有perl的字符串 /^perl/ 找到开头是perl的字符串/perl$/ 找到结尾是perl的字符串 /c|g|i/ 找到含有c或g或i的字符串 /cg{2,4}i/ 找到c后面跟着2个到4个g,再跟着i的字符串 /cg{2}i/ 找到c后面跟着2个g,再跟着i的字符串 /cg*i/ 找到c后面跟着0个或多个g,再跟着i的]]> Sat, 16 Apr 2005 03:07:43 GMT 如果在Unix中曾经使用过sde、awk、grep这些指令的话,相信对于Perl语言中的文字处理模式(Regular Expression) 应该不会感到陌生才对。在Perl语言中因为有这个功能,所以对于字符串的处理能力是非常强有力的。Regular Expression可视为用来处理字符串的一种模式(pattern),其使用的格式为/pattern/。在Perl语言的程序设计中,经常可以看得到类似语法的应用,在CGI程序设计中也不例外。只要能够善用文字处理模式的话,要处理任何难的字 符串皆可迎刃而解,在本章中笔者会用深入浅出的方式来介绍Regufar Expres]]> Sat, 16 Apr 2005 03:06:46 GMT use DBI;
#连接数据库mydata
my $dbh = DBI->connect(’DBI:mysql:mydata’) or die "无法连接数据库: " . DBI->errstr;
print "插入若干记录n";
my $sth = $dbh->prepare(q{
INSERT INTO address (id, name,email,telephone) VALUES (?, ?, ?, ?)
}) });
print "输入记录,回车结束:";
while ($inputdat]]> Sat, 16 Apr 2005 03:06:11 GMT 步骤1：
从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件：
Readme
DBI.ppd
DBI.tar.gz
步骤2：
在DOS窗口下，temp目录中运行下面的DOS命令：
ppm install DBI.ppd
如果提示无效命令,可在perl/bin目录下运行
二. 安装DBD-Mysql模块
从软件下载中下载DBD-Mysql.zip,安装方法同一.
三. 准备数据库
启动my]]> Sat, 16 Apr 2005 03:05:02 GMT A : 客户端 PerlScript 嵌入在 HTML 文件中, 所有的 PerlScript 代码必须包含在 ＜SCRIPT LANGUAGE="PerlScript"> ＜/SCRIPT> 之间.客户端 PerlScript 要求 Perl for Win32 和 PerlScript 安装在每台将要调用 PerlScript 页面的计算机上. 客户端 Perlscript 只适用于你有权限更改运行该脚本的计算机的情况下.如果你是为大量的用户建立一个应用程序时,服务器端 PerlScript 才是更合适的. 要浏览器显示某些信息的时候,可以用 document 对象的 write() 方法.像这样:]]> Sat, 16 Apr 2005 03:04:18 GMT A : 可以. ASP 默认使用 VBScript ,也可用 JavaScript ,但若要使用 PerlScript ,需在服务器上安装 Perl for Win32 和 PerlScript ( 无需在客户机上安装 ).为了让服务器辨别服务器端的 Perl 代码,你可以使用 ＜SCRIPT> 标签或将代码包含在 ＜% 和 %> 之间.
下面是使用 ＜SCRIPT> 标签的一个简单例子.
＜%@ LANGUAGE = PerlScript %>
＜HTML>
＜HEAD>
＜TITLE>PerlScrip]]> Sat, 16 Apr 2005 03:03:43 GMT A : 在 IE 4.0 或更高版本中,通过修改注册表实现:
HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlSE\1.0
REG_DWORD: EnabledZones = 0x0010 (default)
EnabledZones 的值
Enable All : 0x0001
Enable Local : 0x0010
Enable Internet : 0x0020
Enable Trusted : 0x0040
Enable Restricted : 0x008]]> Sat, 16 Apr 2005 03:02:21 GMT ====================
:forehead
Mail: forehead@21cn.com
Time: 2000.1.1
====================
如有不妥或欠缺,请不吝指教
========================================================
Q : 什么是 PerlScript?　
A : PerlScript 是一个 ActiveX 脚本引擎,使你可以在任何 ActiveX scripting host 上运行 Perl 程序.
ActiveX sc]]>