当前页面位置: » 丰搜网 » 文档中心 » 文档列表 » cgi
perlscript 的介绍==:foreheadmail: forehead@21cn.com time: 2000.1.1==如有不妥或欠缺,请不吝指教==q : 什么是 perlscript? a : perlscript 是一个 activex 脚本引擎,使你可以在任何 activex scripting host 上运行 perl 程序.activex scripting host 有: internet information server 3.0/4.0 peer web services 3.0/4.0 microsoft internet explorer 4.0x windows scripting host ==q : 运行 perlscript 需要些什么?a : 如下: perl for win32 核心 一个 activex 脚本主机 ( scripting h...
http://www.sosof.com/detail/248/38924823658211.html -by - 丰搜 缓存页面
最后： %24filename="c:/website/htdocs/book.html"; open(file,">> %24filename"); print file "名字：%24form{'name'}n"; print file "email: print file "留言：%24form{'suggest'}"; close{file}; print "谢谢留言"; print"请观看留言本"; exit(0); 输出内容到文件和屏幕上。完成留言的程序。 book.html: 这个程序中book.html没有什么特别的要求，可以不用写，就让 程序自动生成。 现在有的cgi程序，对book.html也有设定，比如在>之间就写上注释 这样，在程序对留言数据操作的时候，就可以忽略掉文件内的其它内容...
http://www.sosof.com/detail/248/59124823659355.html -by - 丰搜 缓存页面
这个程序相当简陋，但它具有了所有的cgi-guest程序的特点， 我们一一分析如下： 首先， read(stdin,%24buffer,%24env{'content_length'})； @pairs=split(/&/,%24buffer); foreach %24pair(@pairs){ (%24name,%24value)=split(/=/,%24pair); %24value=~tr/+//; %24value=~s/%([a-f a-f 0-9][a-f a-f 0-9])/pack("c",hex(%241) )/eg; %24form{%24name}=%24value; } 这是一段表单分析的语句，在前面的程序里，估计大家也都见过 了。 其次： foreach %24check(values%form){ if(%24check eq""){ pr...
http://www.sosof.com/detail/258/9332582360106.html -by - 丰搜 缓存页面
将此表单的提交后的动作交给guest-book.cgi程序。 guest-book.cgi #! perl print"content-type:text/htmlnn"; read(stdin,%24buffer,%24env{'content_length'})； @pairs=split(/&/,%24buffer); foreach %24pair(@pairs){ (%24name,%24value)=split(/=/,%24pair); %24value=~tr/+//; %24value=~s/%([a-f a-f 0-9][a-f a-f 0-9])/pack("c",hex(%241) )/eg; %24form{%24name}=%24value; } print""; print" 留言本"; foreach %24check(value...
http://www.sosof.com/detail/258/2052582362226.html -by - 丰搜 缓存页面
guest-book在网页设计中占有相当重要的地位，以至于可以和记数 器相提并论。留言本可以用许多编程语言来设计，当然使用最多的还是 perl和vb两种。本次cgi教程我们将谈谈在编写guest-book中最应该注 意的问题，并将给出一个不算很完整的程序代码。 就现在的情况来看，一个标准的guest-book程序一般包括三个文 件。提交表单文件 （form.html)、cgi处理文件(guest-book.cgi)和最后的输出文 件（book.html)。有些vb程序以access数据库为后台存储格式，以方便 用户查找留言。下图给出了guest-book的工作流程。 form.html ＜h1>＜span style="font-size: 9pt; line-height: 15pt">留言本＜/span>＜/h1> ＜form action...
http://www.sosof.com/detail/258/4162582363334.html -by - 丰搜 缓存页面
在unix主机上我们可以很轻易地通过编程来发送email，有时我们需要把从表单上得来数据整理后发送到一个信箱里，例如来访者的留言，在线申请。 在unix系统中通常会有一个 sendmail 程序用来发送email的，这是一个十分复杂的电子邮件系统，但我们在cgi编程中用它来发送email是十分简单的事，具体的操作是打开一个通道，把输出的信息作为sendmail 这个程序输入 代码如下：open (mail,"/usr/sbin/sendsendmail zjxyz@xxxx.xxx"); #注意其间的空格 print mail %24msg close mail; 这样我们就可以把变量%24msg中的内容通过服务器上的 sendmail 程序发送到地址为zjxyz@xxxx.xxx 的信箱中，要注意的是这只是一个简单的例子，还有一些细节的地方是需要讨论的。 在上述的程序中，邮件的接受者将会...
http://www.sosof.com/detail/258/6122582367590.html -by - 丰搜 缓存页面
这是源码：#!/usr/bin/perl # test.pl #author homepage: http://spot.126.com use strict; use socket; my %24pop3server = "263.net"; my %24port = 110; %24=1; print "content-type: text/html"; print "pop3"; print ""; my (%24a,%24name,%24aliases,%24proto,%24type,%24len,%24thataddr,%24thisaddr,%24i); my %24af_inet = 2; my %24sock_stream = 1; my %24sockaddr = "s n a4 x8"; (%24name,%24aliases,%24proto) = getprotobyname("tcp"); (%24name,%24aliases,%24port...
http://www.sosof.com/detail/258/9242582368802.html -by - 丰搜 缓存页面
验证邮箱密码的程序的原码下面的代码在两种操作系统下对263.net和pop.netease.com两个pop3服务器严格测试, 证明是成功的. 第一种: 操作系统：windows 98 中文版 www服务器：apache 1.3.9 for win perl 解释器：activestate tool corp的perl for win32 , version 5.005_03 built for mswin32-x86-object 第二种: 操作系统：red hat linux 6.1 www服务器：apache 1.3.6 for linux perl 解释器：version 5.005_03 built for i386-linux...
http://www.sosof.com/detail/258/12625823610919.html -by - 丰搜 缓存页面
connect(socket,name) 试图与已经调用了accept()函数并等待建立连接的另外一个进程进行对话. 如果成功,则返回真;否则返回假.name应该是对应socket句柄正确类型的压缩地址 范例： connect(sock,%24address) die "can’t connect with remote host: %24!"; gethostbyaddr(address,type) 将压缩形式的网络地址转换为更易于人阅读理解的名字与地址. 当只知道主机的ip地址时,可以使用本函数查询主机名及其他网络信息.它返回一个列表，包含如下信息： (%24name, %24alias, %24addrtype, %24length, %24address) 其中, %24name是与ip地址对应的主机名, %24alias是对应%24name的其他别名， %24addrtype是网络地址的类型, %24length是地址的长度...
http://www.sosof.com/detail/258/33825823611366.html -by - 丰搜 缓存页面
网络编程是一门神秘且复杂的艺术，当然也十分有趣。perl语言提供了丰富的tcp/ip网络函数，所有这些函数都直接来源于c语言的socket库函数. 由于perl语言和c语言的socket库函数在型式和使用方法上都是一样的，因此会使用perl语言进行socket编程, 当然也就会使用c语言进行socket编程. 下面是perl语言中有关的socket库函数列表：函数原型 使用说明 accept(newsocket,genericsocket) 接受请求的socket连接.如果成功,则返回压缩形式的网络地址;否则返回false. 范例： if (!%24connect = accept(new,handle)) { die "connection failed: %24!"; } bind(socket,name) 建立name与socket的绑定，其中name应该是对应socket正确类型的压缩...
http://www.sosof.com/detail/258/53925823612474.html -by - 丰搜 缓存页面
