·
利用Perl开发Internet/Intranet应用之二（5） (2005-05-18)
---- 发送邮件： 可通过调用系统命令实现，如systemmailxzyr\@gznet.com< a.txt或execmailxzyr\@gznet.com< a.txt。(a.txt为要发送的邮件内容,\是取消@特殊字符的含义)前者系统命令运行完后，会继续执行下面的语句而后者调用结……
·
利用Perl开发Internet/Intranet应用之二（4） (2005-05-18)
---- 5 怎样在程序中调用系统命令 ------ 以在程序中自动收发邮件为例 ----CGI的推出就是为了使WebServer可以与更多的数据源沟通，常用的数据源有三种：数据库、非关系型数据文件（如txt文本）、邮件系统。前二者的连接和读写都有很多的方法，这里就不再相述。我主要想谈谈……
·
利用Perl开发Internet/Intranet应用之二（3） (2005-05-18)
---- 3 图形文件的处理 ----虽然client经常向服务器申请的都是text/html文件，但是服务器也可以回送GIF、JPG等图形文件，我们只需在数据的header中指明即可。假如我们用< imgsrc=http://10.0.0.1/Scripts/te.pl >语句调……
·
利用Perl开发Internet/Intranet应用之二（2） (2005-05-18)
---- 2 强大的字串处理功能 ----在前面已提过perl具有非常强大的字串处理功能,它除了提供一些字符运算比较符（eq,ne,le...）外，还提供了大量针对字符串匹配的参数。这是其他一些cgi编写语言所不具有的。 ----我们经常会遇到，传递的参数是中文信息，但接收到后却都是乱码。……
·
利用Perl开发Internet/Intranet应用之二（1） (2005-05-18)
三利用Perl开发Internet/Intranet应用的方法与技巧 ---- 1 Perl5.0的某些语法 ----为了方便大家对后面内容的理解，在这里先介绍一些perl5.0的基础知识。 ----1）变量（对象）的表示方法：前面以$打头，如:$db,$bcd ----2）普……
·
利用Perl开发Internet/Intranet应用之一 (2005-05-18)
Perl原来主要用于编写一些Unix系统上的管理和监控程序，由于Perl与Unix系统紧密相连，故后来很多人都喜欢采用Perl来编写CGI程序。现在相当一部分企业都会采用NT平台，但大部分仍然采用Perl进行应用开发。因为它具有良好的通用性和强大的字处理能力，即使以后改用Unix系统（可能由于接……
·
本地调试PERL CGI程序之二 (2005-05-18)
三、 安装PERL for Win32 1、下载PERL For Win32程序：Pw32i316.exe，1.47M。 它只是PERL For Win32的一个版本，你可以到“http://www.activestate.com”去下载，那儿有很多版本的PERL For W……
·
本地调试PERL CGI程序之一 (2005-05-18)
要在自己的平台上调试PERL CGI程序，以中文Win98为例，需要做以下几项工作： 1. 安装、设置TCP/IP协议 2. 安装、设置Web服务器 3. 安装PERL for Win32 详细介绍各个步骤： 一、安装、设置TCP/IP协议 如果您……
·
Perl语言的文字处理模式之三（4） (2005-05-18)
范例三: $string=ww22cgi44; $string=~s/(d+)/$1*2/e; (d+)代表要找寻$string中一个或是多个数值的字符串,再将找到的字符串设成 $1。加上参数e是代表要把$l*2当作是一个运算式,所以$string=www44cgi44; ……
·
Perl语言的文字处理模式之三（3） (2005-05-18)
指令:s取代函数 语法:s/PATTERN/REPLACE/eg 其中PATTERN是文字处理(Regular Expression)的模式,REPLACE是代表取代成何种文 字 模式。而g是这个函数最常用的参数,代表要把所有符合文字模式的字符串 全部取 代,如果省略这个参数的话,则只……
·
Perl语言的文字处理模式之三（2） (2005-05-18)
指令: =~相配运算符 说明:这是Perl语言中特有的语法,通常会和文字处理模式来作运算。 范例: print请输入一个字符串!n; $string=<>; #<>代表标准输入,会让使用者输入一字符串 chop($string); #将$string……
·
Perl语言的文字处理模式之三（1） (2005-05-18)
三、文字处理模式(Regular Expression)相关的运算符及函数 在perl程序写作中常会用到=~和!~这两个运算符及s和tr这二个函数来和文字处理模式/pattern/搭配而成一个运算式,如果能够活用这些指令的话,就可以很轻易地来处理一些字符串，当然在CGI程序设计中也就更能……
·
Perl语言的文字处理模式之二 (2005-05-18)
二、文字处理模式(RegularExpression)的简单范例 看了上一小节文字处理模式〈RegularExpression)之后,初学者对于这个语法的应用可能 还不是很清楚,所以笔者会在这一小节中,举出一些在文字处理模式中常用的范例给大家瞧瞧： 范例说明: /perl/ 找到含……
·
Perl语言的文字处理模式之一 (2005-05-18)
Perl语言的文字处理模式(Regular Expression) 如果在Unix中曾经使用过sde、awk、grep这些指令的话,相信对于Perl语言中的文字处理模式(Regular Expression) 应该不会感到陌生才对。在Perl语言中因为有这个功能,所以对于字符串的处理能力……
·
用perl访问mysql数据库之二 (2005-05-18)
四. 下面用perl程序来插入若干记录并做查询. use DBI; #连接数据库mydata my $dbh = DBI->connect(’DBI:mysql:mydata’) or die 无法连接数据库: . DBI->errstr; print 插入若干记录n……
·
用perl访问mysql数据库之一 (2005-05-18)
一. 安装DBI模块 步骤1： 从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件： Readme DBI.ppd DBI.tar.gz 步骤2： 在DOS窗口下，temp目录中运行下面的DOS命令： ppm install D……
·
PerlScript 的介绍之四 (2005-05-18)
Q : 客户端 PerlScript ? A : 客户端 PerlScript 嵌入在 HTML 文件中, 所有的 PerlScript 代码必须包含在 ＜SCRIPT LANGUAGE=PerlScript> ＜/SCRIPT> 之间.客户端 PerlScript 要求 Perl……
·
PerlScript 的介绍之三 (2005-05-18)
Q : 我可以用 PerlScript 编写 Active Server Pages 吗? A : 可以. ASP 默认使用 VBScript ,也可用 JavaScript ,但若要使用 PerlScript ,需在服务器上安装 Perl for Win32 和 PerlScript ( 无……
·
PerlScript 的介绍之二 (2005-05-18)
Q : 如何设置 PerlScript 的安全等级 ? A : 在 IE 4.0 或更高版本中,通过修改注册表实现: HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlSE\1.0 REG_DWORD: EnabledZones = 0x0010 (def……
·
PerlScript 的介绍之一 (2005-05-18)
PerlScript 的介绍 ==================== :forehead Mail: forehead@21cn.com Time: 2000.1.1 ==================== 如有不妥或欠缺,请不吝指教 ==========================……
·
用Perl制作留言本实例之四 (2005-05-18)
最后： $filename=c:/website/htdocs/book.html; open(FILE,>> $filename); print FILE 名字：$FORM{name}n; print FILE Email: print ……
·
用Perl制作留言本实例之三 (2005-05-18)
这个程序相当简陋，但它具有了所有的CGI-Guest程序的特点， 我们一一分析如下： 首先， read(STDIN,$buffer,$ENV{CONTENT_LENGTH}) @pairs=split(/&/,$buffer); foreach $pa……
·
用Perl制作留言本实例之二 (2005-05-18)
将此表单的提交后的动作交给guest-book.cgi程序。 guest-book.cgi #! perl printContent-type:text/htmlnn; read(STDIN,$buffer,$ENV{CONTENT_LENGTH}) ……
·
用Perl制作留言本实例之一 (2005-05-18)
Guest-book在网页设计中占有相当重要的地位，以至于可以和记数 器相提并论。留言本可以用许多编程语言来设计，当然使用最多的还是 perl和vb两种。本次cgi教程我们将谈谈在编写Guest-book中最应该注 意的问题，并将给出一个不算很完整的程序代码。 就现在的情况来……
·
编写关于SendMail的CGI (2005-05-18)
在UNIX主机上我们可以很轻易地通过编程来发送EMAIL，有时我们需要把从表单上得来数据整理后发送到一个信箱里，例如来访者的留言，在线申请。 在UNIX系统中通常会有一个 sendmail 程序用来发送EMAIL的，这是一个十分复杂的电子邮件系统，但我们在CGI编程中用它来发送EMAIL……
·
用Perl语言进行Socket编程之四 (2005-05-18)
这是源码：
#!/usr/bin/perl # test.pl #Author homepage: http://spot.126.com use strict; use Socket; my $pop3server = 263.net; my $port = 110; $……
·
用Perl语言进行Socket编程之三 (2005-05-18)
验证邮箱密码的程序的原码 下面的代码在两种操作系统下对263.net和pop.netease.com两个POP3服务器严格测试, 证明是成功的. 第一种: 操作系统：Windows 98 中文版 WWW服务器：Apache 1.3.9 for Win Perl 解释器：Act……
·
用Perl语言进行Socket编程之二 (2005-05-18)
connect(SOCKET,NAME) 试图与已经调用了accept()函数并等待建立连接的另外一个进程进行对话. 如果成功,则返回真;否则返回假.NAME应该是对应SOCKET句柄正确类型的压缩地址 范例： connect(SOCK,$address) || die Can’t con……
·
用Perl语言进行Socket编程之一 (2005-05-18)
网络编程是一门神秘且复杂的艺术，当然也十分有趣。Perl语言提供了丰富的TCP/IP网络函数，所有这些函数都直接来源于C语言的socket库函数. 由于Perl语言和C语言的socket库函数在型式和使用方法上都是一样的，因此会使用Perl语言进行Socket编程, 当然也就会使用C语言进行S……
·
生根于自由的土壤-FastCGI之四 (2005-05-18)
我们再看看如何用FastCGI来写这个程序： 示例二：NUMBER.FCGI ＃!/usr/bin/perl ＃为了使用FastCGI软件包，需要加入如下声明： Use FCGI; ＃初始化段和CGI初始化段一样。 ＃ Variables my ＄End = 10; ……
·
生根于自由的土壤-FastCGI之三 (2005-05-18)
如何编写FastCGI应用程序 让我们先来看看FastCGI是如何运行的： 正如你看到的一样， FastCGI在处理一个请求后继续保持运行，以便在新的请求到来时能立即处理请求。所以 FastCGI程序通常包括初始化代码段和封装程序主体的响应循环段，当然初始化完成后，主体程序不断循环……
·
生根于自由的土壤-FastCGI之二 (2005-05-18)
FastCGI的优点 我们知道，CGI是不能利用内存来作为缓存的，因为它为每一个请求运行一次应用程序，并在完成任务后退出。而 FastCGI可以很有效地利用内存来作缓存，大大地提高了它处理请求的性能。单独的FastCGI应用程序和 CGI相比，也许并没有很好地利用缓存，而一旦FastCG……
·
生根于自由的土壤-FastCGI之一 (2005-05-18)
Linux作为自由软件的代表，给IT行业带来了无限的发展空间。 Linux的透明性，无论给开发人员还是应用人员都有一个充分发挥的余地，在以 Linux系统为作业和平台上，更多的功能正在被不断地开发出来。像Server Push、FastCGI、EPERL、PHP3等许多的新功能，正是在Linux……
·
perl连接access数据库之二 (2005-05-18)
三. 这时候，数据库已经可以用了，我们来测试一下： #!/usr/bin/perl use Win32::ODBC; $DSN = MS Access 97 Database; $DBase = access.mdb; #连接数据库 if (!($db = new Win3……
·
perl连接access数据库之一 (2005-05-18)
前题是必须安装好activeperl （505以上），以及MS Access 97 一. 安装Win32-ODBC模块 步骤1： 从TOOLS栏目中下载Win32-ODBC.zip,下载完后用winzip解开到一个temp目录,共有三个文件： Readme Win32-ODBC.p……
·
实战 FastCGI_2. 安装 FastCGI之五 (2005-05-18)
2.5 安装 FCGI 模块 for Perl 如果要使用 Perl 来撰写 FastCGI 的程序，必须安装 FCGI.pm 这个模块，安装的方法如下： 1. 下载 FCGI-0.45.tar.gz 并且解开 $ gunzip -c FCGI-0.45.tar.gz | tar……
·
实战 FastCGI_2. 安装 FastCGI之四 (2005-05-18)
2.3 安装 FastCGI 开发套件 1. 下载 fcgi-devkit-2.1.tar.gz 并且解开： $ gunzip -c fcgi-devkit-2.1.tar.gz | tar xvf - 2. 编译 $ cd fcgi-devkit-2.1 $ ./configur……
·
实战 FastCGI_2. 安装 FastCGI之三 (2005-05-18)
2.1.2 将 mod_fastcgi 安装成一个 DSO 假设你已经在系统上安装好 Apache 1.3 版以上，并且你的平台支持 DSO (Dynamic Shared Object) 的方式动态加入模块，那么你可以透过 apxs (APache eXtenSion tool) 将 ……
·
实战 FastCGI_2. 安装 FastCGI之二 (2005-05-18)
2.1.1 标准安装 (利用 APACI) 1. 首先下载 apache_1.3.6.tar.gz 及 mod_fastcgi_2.2.2.tar.gz ，解开： $ gunzip -c apache_1.3.6.tar.gz | tar xvf - $ gunzip -c mod_f……
·
实战 FastCGI_2. 安装 FastCGI之一 (2005-05-18)
2. 安装 FastCGI 要使用 FastCGI 你必需有一个可供 FastCGI 程序执行的环境 (run-time environment)，以及 撰写 FastCGI 程序的开发环境。以下就以阿帕契服务器 (Apache Web Server) 做为 FastCGI 的执行平台，……
·
实战 FastCGI_1.克服 CGI 的瓶颈（3） (2005-05-18)
1.3 更好的方法 - FastCGI 如果你正饱受 CGI 效率不佳之苦，又不想受限于 NSAPI 及 ISAPI ，也没有大笔银子去买昂贵的 Application Server，我建议你试试看 FastCGI。 不同于 NSAPI 及 ISAPI 以及其他的网页服务器语言 ……
·
实战 FastCGI_1.克服 CGI 的瓶颈（2） (2005-05-18)
1.2 一些解决之道 现在已经有许多方案被提出来以解决 CGI 执行效率上的瓶颈，在『用 FastCGI 加速你的网站』一文中也有简单的说明，这里仅就笔者在开发股市实时报价的网站应用程序时，所尝试过的一些方法提出个人的经验和意见。以笔者的案例而言，原本的 CGI 程序是以 C 语言写的，……
·
实战 FastCGI_1.克服 CGI 的瓶颈（1） (2005-05-18)
1. 克服 CGI 的瓶颈 1.1 令人头痛的效率问题 拜 CGI 之赐，网站不再只有固定不变的图形和文字，藉由程序动态产生的网页可以让网站好象『活』了起来。小从简单的网页计数器，留言版，大至处理众多资料的搜寻引擎，可做线上实时交易的电子商务、网络下单等。CGI 简单、开放、跨平台、……
·
实战 FastCGI（简介） (2005-05-18)
Abstract: 当网站日益走红，联机人数直线上升而心中暗自窃喜之时，突然客服中心涌来大批反应电话：『网站连不上去』、『按下去等好久画面才出来』、『一直出现 Server Too Busy...』．．．。看来又要把硬件升级了，但是再加更多的内存，更多 CPU、换更贵的机器真的能解决问题吗？有……
·
Perl教学（14）Perl5的包和模块之五 (2005-05-18)
2、导入模块 将模块导入你的Perl程序中使用use语句，如下句导入了Mymodule模块： use Mymodule; 这样，模块Mymodule中的子程序和变量就可以使用了。 取消导入模块使用no语句，如下句取消了Mymodule模块的导入： no Mymodule; 下面看一个导入模块和取消导……
·
Perl教学（14）Perl5的包和模块之四 (2005-05-18)
三、模块 多数大型程序都分割成多个部件，每一部件通常含有一个或多个子程序及相关的变量，执行特定的一个或多个任务。集合了变量和子程序的部件称为程序模块。 1、创建模块 Perl 5中用包来创建模块，方法是创建包并将之存在同名的文件中。例如，名为Mymodult的包存贮在文件Mymodult.pm中（扩……
·
Perl教学（14）Perl5的包和模块之三 (2005-05-18)
5、指定无当前包 在Perl 5中，可以用如下语句指定无当前包： package; 这时，所有的变量必须明确指出所属包名，否则就无效--错误。 $mypack::var = 21; #ok $var = 21; #error - no current package 这种情况直到用package语句……
·
Perl教学（14）Perl5的包和模块之二 (2005-05-18)
二、包 Perl程序把变量和子程序的名称存贮到符号表中，perl的符号表中名字的集合就称为包(package)。 1、包的定义 在一个程序中可以定义多个包，每个包有一个单独的符号表，定义语法为： package mypack; 此语句定义一个名为mypack的包，从此以后定义的所有变量和子程序的名字……
·
Perl教学（14）Perl5的包和模块之一 (2005-05-18)
一、require函数 用require函数可以把程序分割成多个文件并创建函数库。例如，在myfile.pl中有定义好的Perl函数，可用语句require (myfile.pl); 在程序中包含进来。当Perl解释器看到这一语句，就在内置数组变量@INC指定的目录中寻找文件myfile.pl。如果……
·
Perl教学（13）Perl的面向对象编程之六 (2005-05-18)
十一、子类方法的重载 继承的好处在于可以获得基类输出的方法的功能，而有时需要对基类的方法重载获得更具体或不同的功能。下面在Bean.pm类中加入方法printType()，代码如下： sub printType { my $class = shift @_; print The type of B……
·
Perl教学（13）Perl的面向对象编程之五 (2005-05-18)
Coffee.pm代码如下： 1 # 2 # The Coffee.pm file to illustrate inheritance. 3 # 4 package Coffee; 5 require Exporter; 6 require Bean; 7 @ISA = qw(Exporter, ……
·
Perl教学（13）Perl的面向对象编程之四 (2005-05-18)
1; 现在，我们写一个简单的Perl脚本来使用该类的方法，下面是创建一个Java applet源代码骨架的脚本代码： #!/usr/bin/perl use Cocoa; $cup = new Cocoa; $cup->setImports( java.io.InputStream, ja……
·
Perl教学（13）Perl的面向对象编程之三 (2005-05-18)
五、方法 Perl类的方法只不过是一个Perl子程序而已，也即通常所说的成员函数。Perl的方法定义不提供任何特殊语法，但规定方法的第一个参数为对象或其被引用的包。Perl有两种方法：静态方法和虚方法。 静态方法第一个参数为类名，虚方法第一个参数为对象的引用。方法处理第一个参数的方式决定了它是静态的……
·
Perl教学（13）Perl的面向对象编程之二 (2005-05-18)
下面语句为使用该包创建对象的例子： 1 #!/usr/bin/perl 2 push (@INC,pwd); 3 use Cocoa; 4 $cup = new Cocoa; 第一行指出Perl解释器的位置，第二行中，将当前目录加到路径寻找列表@INC中供寻找包时使用。你也可以在不同的目录中创建……
·
Perl教学（13）Perl的面向对象编程之一 (2005-05-18)
本章介绍如何使用Perl的面向对象编程(OOP)特性及如何构建对象，还包括继承、方法重载和数据封装等内容。 一、模块简介 模块(module)就是Perl包(pachage)。Perl中的对象基于对包中数据项的引用。（引用见第x章引用）。 详见http://www.nease.net/tppmsgs……
·
Perl教学 第十二篇 Perl5中的引用之五 (2005-05-18)
六、子程序的引用 perl中子程序的引用与C中函数的指针类似，构造方法如下： $pointer_to_sub = sub {... declaration of sub ...}; 通过所构造的引用调用子程序的方法为： &$pointer_to_sub(parameters); ·子程序……
·
Perl教学 第十二篇 Perl5中的引用之四 (2005-05-18)
五、多维数组 语句@array = list;可以创建数组的引用，中括号可以创建匿名数组的引用。下面语句为用于画图的三维数组的例子： $line = [solid , black , [1,2,3] , [4,5,6]]; 此语句建立了一个含四个元素的三维数组，变量$line指向该数组。前两个元素是……
·
Perl教学 第十二篇 Perl5中的引用之三 (2005-05-18)
与数组类似，通过引用访问哈希表的元素形式为$$pointer{$index}，当然，$index是哈希表的键值，而不仅是数字。还有几种访问形式，此外，构建哈希表还可以用=>操作符，可读性更好些。下面再看一个例子： 1 #!/usr/bin/perl 2 # 3 # Using Array ……
·
Perl教学 第十二篇 Perl5中的引用之二 (2005-05-18)
运行结果如下： $ test 1 2 3 4 Pointer Address of ARGV = ARRAY(0x806c378) Number of arguments : 4 0 : 1; 1 : 2; 2 : 3; 3 : 4; 第5行将引用$pointer指向数组@ARGV，第6行输出……
·
Perl教学 第十二篇 Perl5中的引用之一 (2005-05-18)
一、引用简介 引用就是指针，可以指向变量、数组、哈希表（也叫关联数组）甚至子程序。Pascal或C程序员应该对引用（即指针）的概念很熟悉，引用就是某值的地址，对其的使用则取决于程序员和语言的规定。在Perl中，可以把引用称为指针，二者是通用的，无差别的。引用在创建复杂数据方面十分有用。 Pe……
·
Perl教学 第十一篇 文件系统之五 (2005-05-18)
3、文件许可权函数 函数名 chmod 调用语法 chmod (permissions, filelist); 解说 改变文件的访问权限。参数为： 1、permissions为将要设置的权限，其含义见上述mkdir中权限表 2、filelist为欲改变权限的文件列表 函数名 chown ……
·
Perl教学 第十一篇 文件系统之四 (2005-05-18)
4、用getc读取字符 函数名 getc 调用语法 $char = getc (infile); 解说 从文件中读取单个字符。 5、用binmode读取二进制文件 函数名 binmode 调用语法 binmode (filevar); 解说 当你的系统（如类DOS系统）对文本文件和二……
·
Perl教学 第十一篇 文件系统之三 (2005-05-18)
运行结果如下： $ program file1 file2 This is a line from the first file. Here is the last line of the first file. -- end of current file -- This is a line f……
·
Perl教学 第十一篇 文件系统之二 (2005-05-18)
可以看到，这两行并未按我们想象的顺序存贮，为什么呢？我们来分析一下这段程序。 第3行重定向标准输出文件，方法是打开文件file1将它与文件变量STDOUT关联，这也关闭了标准输出文件。第4行重定向标准错误文件，参数>&STDOUT告诉Perl解释器使用已打开并与STDOUT关联的文件……
·
Perl教学 第十一篇 文件系统之一 (2005-05-18)
本章所讲的函数多数使用了UNIX操作系统的特性，在非UNIX系统中，一些函数可能没有定义或有不同的工作方式，使用时请查看Perl联机文档。 一、文件输入/输出函数 本节讲述从文件中读取信息和向文件写入信息的内置库函数。 1、基本I/O函数 一些I/O函数在前面的章节中已有讲述，如 ·open：允许……
·
Perl教学 第十篇 格式化输出之四 (2005-05-18)
六、格式化长字符串 我们已经学过值域@*可以输出多行文本，但它完全将字符串原样输出，不加以格式化。在Perl中对长字符串（包含换行）进行格式化的值域定义很简单，只需把打头的@字符换成^就行了，这种文本格式化中，Perl解释器在一行中放置尽可能多的单词。每当输出一行文本，被输出的子串就从变量中删除，再……
·
Perl教学 第十篇 格式化输出之三 (2005-05-18)
2、格式和局域变量 在上例中，你可能已经注意到子程序write_letter调用write输出字母及其出现次数，即使格式定义在子程序外部仍能正常工作。在第17行中将字母及其出现次数传递给该子程序，在子程序中，打印格式使用局域变量$letter和$value，这样保证了在foreach循环中每次输出当……
·
Perl教学 第十篇 格式化输出之二 (2005-05-18)
三、在打印格式中显示值 我们使用打印格式的主要原因当然是格式化存贮在简单变量或数组变量中的值从而生成可读性好的输出，这一目的用“值域”来实现。每个值域指定一个值，如变量或表达式，调用write函数时，该值就以值域指定的格式显示。 1、通用的打印格式 打印格式的一个缺点是定义中包含了变量名，例如： ……
·
Perl教学 第十篇 格式化输出之一 (2005-05-18)
我们已经见过用print函数将原始的未格式化的文本输出到文件，本章讲述如何用函数write和打印格式来生成格式化的输出。 一、定义打印格式 定义打印格式的关键字为format，语法为： format formatname = lines_of_output . 打印格式名formatname的命……
·
Perl教学 第九篇 关联数组之四 (2005-05-18)
2、结构 许多编程语言可以定义结构(structure)，即一组数据的集合。结构中的每个元素有其自己的名字，并通过该名字来访问。 Perl不直接提供结构这种数据结构，但可以用关联数组来模拟。例如模拟C语言中如下的结构： struce{ int field1; int field2; int fie……
·
Perl教学 第九篇 关联数组之三 (2005-05-18)
上例中，简单变量$header含有链表中第一个单词，它同时也是关联数组第一个元素的下标，其值baker又是下一个元素的下标，依此类推。 下标为delta的最后一个元素的值为空串，表示链表的结束。 在将要处理的数据个数未知或其随程序运行而增长的情况下，链表十分有用。下例用链表按字母次序输出一个文件中的……
·
Perl教学 第九篇 关联数组之二 (2005-05-18)
五、创建关联数组 可以用单个赋值语句创建关联数组，如： %fruit = (apples,17,bananas,9,oranges,none); 此语句创建的关联数组含有下面三个元素： ·下标为apples的元素，值为17 ·下标为bananas的元素，值为9 ·下标为oranges的元素，……
·
Perl教学 第九篇 关联数组之一 (2005-05-18)
一、数组变量的限制 在前面讲的数组变量中，可以通过下标访问其中的元素。例如，下列语句访问数组@array的第三个元素： $scalar = $array[2]; 虽然数组很有用，但它们有一个显著缺陷，即很难记住哪个元素存贮的什么内容。假如我们来写一个程序计算某文件中首字母大写的单词出现的次数，用数组……
·
Perl教学 第八篇 子程序 (2005-05-18)
一、定义 子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为： sub subroutine{ statements; } 二、调用 调用方法如下： 1、用&调用 &subname; ... sub……
·
Perl教学 第七篇 控制结构 (2005-05-18)
一、条件判断 if ( ) { } elsif ( ) { } ... else{ } 二、循环： 1、while循环 while ( ) { } 2、until循环 until ( ) { } 3、类C的for循环 ，如 for ($count=1; $coun……
·
Perl教学 第六篇 模式匹配之二 (2005-05-18)
14、指定模式定界符 缺省的，模式定界符为反斜线/，但其可用字母m自行指定，如： m!/u/jqpublic/perl/prog1! 等价于/\/u\/jqpublic\/perl\/prog1/ 注：当用字母作为定界符时，不做变量替换当用特殊字符作为定界符时，其转义功能或特殊功能即不能使用。 1……
·
Perl教学 第六篇 模式匹配之一 (2005-05-18)
一、简介 模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array = split(/ /, $line); 二、匹配操作符 =~、!~ =~检验匹配是否成功：$result = $var =~ /abc/;若在……
·
Perl教学 第五篇 文件读写 (2005-05-18)
一、打开、关闭文件 语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。 open(FILE1,file1); open(FILE1, /u/jqpublic/fil……
·
Perl教学 第四篇 列表和数组变量之二 (2005-05-18)
4、数组的输出： (1) @array = (1, 2, 3); print (@array, \n); 结果为： 123 (2) @array = (1, 2, 3); print (@array\n); 结果为： 1 2 3 5、列表/数组的长度 当数组变量出现在预期简单变量出现的地方，则P……
·
Perl教学 第四篇 列表和数组变量之一 (2005-05-18)
一、列表 列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , hello , 2)，空列表：()。 注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同的，但它们可以互相转化或赋值。 列表例： (17, $var, a string) (1……
·
Perl教学 第三篇 操作符之二 (2005-05-18)
七、自增自减操作符 ：++、--(与C++中的用法相同) .不要在变量两边都使用此种操作符：++$var-- # error .不要在变量自增/减后在同一表达式中再次使用：$var2 = $var1 + ++$var1; # error .在PERL中++可用于字符串，但当结尾字符为z、Z、9时进位……
·
Perl教学 第三篇 操作符之一 (2005-05-18)
一、算术操作符 ：+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负) (1)乘幂的基数不能为负，如 (-5) ** 2.5 # error (2)乘幂结果不能超出计算机表示的限制，如10 ** 999999 # error (3)取余的操作数如不是整数，四舍五入成整数后运……
·
Perl教学 第二篇 简单变量 (2005-05-18)
基本上，简单变量就是一个数据单元，这个单元可以是数字或字符串。 一、整型 1、整型 PERL最常用的简单变量，由于其与其他语言基本相同，不再赘述。 例： $x = 12345; if (1217 + 116 == 1333) { # statement block goes here } 整型的……
·
Perl教学 第一篇 概述 (2005-05-18)
一、Perl是什么? Perl是Practical Extraction and Report Language的缩写，它是由Larry Wall设计的，并由他不断更新和维护，用于在UNIX环境下编程。 .Perl具有高级语言（如C）的强大能力和灵活性。事实上，你将看到，它的许多特性是从C语言中借用……
·
Perl程序设计中常用的函数之四 (2005-05-18)
指令：length 语法：length($string) 说明： 求出字符串$string的字节(bytes)值。 示例： $string=Perl5; $size=length($string); -----------------------#这时$size=5; 指令：sub……
·
Perl程序设计中常用的函数之三 (2005-05-18)
指令：exit 语法：exit 说明： 退出执行的程序。 示例： printi love cgi\n; exit; 显示完i love cgi以后，将退出这个程序。 指令：keys 语法：keys(%array) 说明： 取出关联数组%ARRAY中全部的key。 示例……
·
Perl程序设计中常用的函数之二 (2005-05-18)
指令: printf 语法: printf Filehandle LIST 说明: 在perl语言中也提代C语言中printf的语法,用法和C语言中的用法一模一样.如果把Filehandle省略的话 ,也一样会把STDOUT当成是内定的Filehandle.在为大家介绍printf函数之前,先……
·
Perl程序设计中常用的函数之一 (2005-05-18)
print printf chop split exit keys values reverse sort length substr index push pop unshift 指令:print 语法:print Filehandle LIST 说明: 这个Fi……
·
perl实例分析教程之十六 (2005-05-18)
Perl中的“引用” 五、多维数组 语句@array = list;可以创建数组的引用，中括号可以创建匿名数组的引用。下面语句为用于画图的三维数组的例子： $line = [solid , black , [1,2,3] , [4,5,6]]; 此语句建立了一个含四个元素的三维数组，变量$……
·
perl实例分析教程之十五 (2005-05-18)
Perl中的“引用” 一、引用简介 二、使用引用 三、使用反斜线()操作符 四、引用和数组 五、多维数组 六、子程序的引用 七、数组与子程序 八、文件句柄的引用 一、引用简介 引用就是指针，可以指向变量、数组、哈希表（也叫关联数组）甚至子程序。Pascal或C程序员应该对引用（……
·
perl实例分析教程之十四 (2005-05-18)
十、用关联数组创建数据结构 用关联数组可以模拟在其他高级语言中常见的多种数据结构，本节讲述如何用之实现：链表、结构和树。 2、结构 许多编程语言可以定义结构(structure)，即一组数据的集合。结构中的每个元素有其自己的名字，并通过该名字来访问。 Perl不直接提供结构这种数据……
·
perl实例分析教程之十三 (2005-05-18)
十、用关联数组创建数据结构 用关联数组可以模拟在其他高级语言中常见的多种数据结构，本节讲述如何用之实现：链表、结构和树。 1、(单)链表 链表是一种比较简单的数据结构，可以按一定的次序存贮值。每个元素含有两个域，一个是值，一个是引用（或称指针），指向链表中下一个元素。一个特殊的头指针……
·
perl实例分析教程之十二 (2005-05-18)
六、从数组变量复制到关联数组 与列表一样，也可以通过数组变量创建关联数组，当然，其元素数目应该为偶数，如： @fruit = (apples,17,bananas,9,oranges,none); %fruit = @fruit; 反之，可以把关联数组赋给数组变量，如： %fruit =……
·
perl实例分析教程之十一 (2005-05-18)
四、增加元素 创建一个关联数组元素最简单的方法是赋值，如语句$fruit{bananas} = 1 把1赋给关联数组%fruit下标为bananas的元素，如果该元素不存在，则被创建，如果数组%fruit从未使用过，也被创建。 这一特性使得关联数组很容易用于计数。下面我们用关联数组改写上面……
·
perl实例分析教程之十 (2005-05-18)
一、数组变量的限制 在前面讲的数组变量中，可以通过下标访问其中的元素。例如，下列语句访问数组@array的第三个元素： $scalar = $array[2]; 虽然数组很有用，但它们有一个显著缺陷，即很难记住哪个元素存贮的什么内容。假如我们来写一个程序计算某文件中首字母大写的单词出现的……
·
perl实例分析教程之九 (2005-05-18)
六、递归子程序 PERL中，子程序可以互相调用，其调用方法与上述相同，当调用该子程序本身时，即成了递归子程序。递归子程序有两个条件： 1、除了不被子程序改变的变量外，所有的变量必须的局部的 2、该子程序要含有停止调用本身的代码。 七、用别名传递数组参数 1、用前面讲到的调用方法&……
·
perl实例分析教程之八 (2005-05-18)
一、定义 子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为： sub subroutine{ statements; } 二、调用 调用方法如下： 1、用&调用 &subname;……
·
perl实例分析教程之七 (2005-05-18)
一、条件判断 if ( ) { } elsif ( ) { } ... else{ } 二、循环： 1、while循环 while ( ) { } 2、until循环 until ( ) { } 3、类C的for循环 ，如 ……
·
perl实例分析教程之六 (2005-05-18)
3、列表范围： (1..10) = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10) (2, 5..7, 11) = (2, 5, 6, 7, 11) (3..3) = (3) .用于实数 (2.1..5.3) = (2.1, 3.1 ,4.1, 5.1) (4.5.……
·
perl实例分析教程之五 (2005-05-18)
一、列表 列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , hello , 2)，空列表：()。 注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同的，但它们可以互相转化或赋值。 列表例： (17, $var, a stri……
网络新品
