网页设计师联盟

下面语句为使用该包创建对象的例子：1#!/usr/bin/perl2push(@INC,'pwd');3useCocoa;4$cup=newCocoa;第一行指出Perl解释器的位置，第二行中，将当前目录加到路径寻找列表@INC中供寻找包时使用。你也可以在不同的目录中创建你的模块并指出该绝对路径。例如，如果在/home/test/scripts/..

14、指定模式定界符缺省的，模式定界符为反斜线/，但其可用字母m自行指定，如：m!/u/jqpublic/perl/prog1!等价于/\/u\/jqpublic\/perl\/prog1/注：当用字母'作为定界符时，不做变量替换；当用特殊字符作为定界符时，其转义功能或特殊功能即不能使用。15、模式次序变量在模式匹配后调用重用部分..

本章所讲的函数多数使用了UNIX操作系统的特性，在非UNIX系统中，一些函数可能没有定义或有不同的工作方式，使用时请查看Perl联机文档。一、文件输入/输出函数本节讲述从文件中读取信息和向文件写入信息的内置库函数。1、基本I/O函数一些I/O函数在前面的章节中已有讲述，如·open..

运行结果如下：$test1234PointerAddressofARGV=ARRAY(0x806c378)Numberofarguments:40:1;1:2;2:3;3:4;第5行将引用$pointer指向数组@ARGV，第6行输出ARGV的地址。$pointer返回数组第一个元素的地址，这与C语言中的数组指针是类似的。第7行调用函数scalar()获得数组的元素..

本章介绍如何使用Perl的面向对象编程(OOP)特性及如何构建对象，还包括继承、方法重载和数据封装等内容。一、模块简介模块(module)就是Perl包(pachage)。Perl中的对象基于对包中数据项的引用。（引用见第x章引用）。详见http://www.nease.net/tppmsgs/msgs0.htm#28的perlmod和perlobj。在..

1;现在，我们写一个简单的Perl脚本来使用该类的方法，下面是创建一个Javaapplet源代码骨架的脚本代码：#!/usr/bin/perluseCocoa;$cup=newCocoa;$cup->setImports('java.io.InputStream','java.net.*');$cup->declareMain("Msg","java.applet.Applet","Runnable");$cup-&..

六、格式化长字符串我们已经学过值域@*可以输出多行文本，但它完全将字符串原样输出，不加以格式化。在Perl中对长字符串（包含换行）进行格式化的值域定义很简单，只需把打头的@字符换成^就行了，这种文本格式化中，Perl解释器在一行中放置尽可能多的单词。每当输出一行文本，被输出的子串就..

3、文件许可权函数函数名chmod调用语法chmod(permissions,filelist);解说改变文件的访问权限。参数为：1、permissions为将要设置的权限，其含义见上述mkdir中权限表2、filelist为欲改变权限的文件列表函数名chown调用语法chown(userid,groupid,filelist);解说改变文件的属主，有三个参数：1、us..

一、定义子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为：subsubroutine{statements;}二、调用调用方法如下：1、用&调用&subname;...subsubname{...}2、先定义后调用，可以省略&符号subsub..

2、格式和局域变量在上例中，你可能已经注意到子程序write_letter调用write输出字母及其出现次数，即使格式定义在子程序外部仍能正常工作。在第17行中将字母及其出现次数传递给该子程序，在子程序中，打印格式使用局域变量$letter和$value，这样保证了在foreach循环中每次输出当前的字母和值。..

五、创建关联数组可以用单个赋值语句创建关联数组，如：%fruit=("apples",17,"bananas",9,"oranges","none");此语句创建的关联数组含有下面三个元素：·下标为apples的元素，值为17·下标为bananas的元素，值为9·下标为oranges的元素，值为none注：用列表给关联数组赋值时，Perl5允..

一、简介模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array=split(//,$line);二、匹配操作符=~、!~=~检验匹配是否成功：$result=$var=~/abc/;若在该字符串中找到了该模式，则返回非零值，即true，不匹配则返回..

我们再看看如何用FastCGI来写这个程序：示例二：NUMBER.FCGI＃!/usr/bin/perl＃为了使用FastCGI软件包，需要加入如下声明：UseFCGI;＃初始化段和CGI初始化段一样。＃Variablesmy＄End=10;my＄i;while(FCGIaccpet()〉=0){＃ContentHeaderprint″Content－Ty..

　在UNIX主机上我们可以很轻易地通过编程来发送EMAIL，有时我们需要把从表单上得来数据整理后发送到一个信箱里，例如来访者的留言，在线申请。　　在UNIX系统中通常会有一个sendmail程序用来发送EMAIL的，这是一个十分复杂的电子邮件系统，但我们在CGI编程中用它来发送E..

将此表单的提交后的动作交给guest-book.cgi程序。　　　　guest-book.cgi　　#!perl　　　　print"Content-type:text/htmlnn";　　read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'})；　　@pairs=split(/&/,$buffer);　　foreach$pair(@pairs){　　($name,$value)=split..

Q:客户端PerlScript?A:客户端PerlScript嵌入在HTML文件中,所有的PerlScript代码必须包含在＜SCRIPTLANGUAGE="PerlScript">＜/SCRIPT>之间.客户端PerlScript要求PerlforWin32和PerlScript安装在每台将要调用PerlScript页面的计算机上.客户端..

　　这个程序相当简陋，但它具有了所有的CGI-Guest程序的特点，我们一一分析如下：　　首先，　　read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'})；　　@pairs=split(/&/,$buffer);　　foreach$pair(@pairs){　　($name,$value)=split(/=/,$pair);　　$value=~tr/+//..

2.1.2将mod_fastcgi安装成一个DSO　　假设你已经在系统上安装好Apache1.3版以上，并且你的平台支持DSO(DynamicSharedObject)的方式动态加入模块，那么你可以透过apxs(APacheeXtenSiontool)将mod_fastcgi安装成一个DSO模块。1.下载mod_fastcgi_2.2.2.tar.gz并且解开：$gunzip-c..

Q:如何设置PerlScript的安全等级?A:在IE4.0或更高版本中,通过修改注册表实现:HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlSE\1.0REG_DWORD:EnabledZones=0x0010(default)EnabledZones的值EnableAll:0x0001EnableLocal:0x0010EnableInte..

一、require函数用require函数可以把程序分割成多个文件并创建函数库。例如，在myfile.pl中有定义好的Perl函数，可用语句require("myfile.pl");在程序中包含进来。当Perl解释器看到这一语句，就在内置数组变量@INC指定的目录中寻找文件myfile.pl。如果找到了，该文件中的语句就被执行，..