perl-全面编译(转)

 
资迅 论坛 教程 杂志 SNS 搜索 
-
Linux教程
Linux
 
Linux编程
 
C/C++编程
 Python编程
 Perl编程
 PHP编程
 shell
 编程技术
 kernel
 html技术
 zope
 java/jsp
 discuz
 Linux宝库 Linux教程 Linux Linux编程 Perl编程  
06/14 2008 Perl语言全面编译 分类：Perl编程 | Linux  作者：Linux宝库  来自：Linux教程  发布时间：2008年06月14日 您是本文的第5640位读者
-

本文来自：Linux教程 -- http://doc.linuxpk.com/3089.html
如有不明白之处，欢迎参加社区讨论
　　简

　　述

　　本文将详细讲述Perl的编译方法，献给所有热爱、喜欢Perl的程序员们。

　　Perl自从面世以来1.0版本到现今的5.6版本，一直都有编译程序，主要因为国内的中文资料很少，大多数人不愿意去看或者不懂得英文资料，所造成不知道器编译方法。即使是很多Perl界高手也同样有此类问题。Perl编译方法五花八门，各种编译方法都有其重要的意义和弱点。另一方面Perl编译方法不能流行的原因是，本身Perl就是一个免费的东西，人们不希望Perl成为编译的商品，但是在国内也是因此而拖累了Perl的发展步伐。但在此我不赞成也不推崇Perl程序的编译，Perl编译有小些局限性，但是仍然可以完成所有任务，想要达到良好的编译效果，需要高超的编程技术和相关经验，重要的是对OOP（面向对象的程序设计）的了解，将会使得你的Perl程序更加易于编译，运行速度更快，兼容性更广等特性。

　　以前我写过Perl在可嵌入式技术方面技术文章。它的优势和其它嵌入语言无法比拟的兼容性，Perl不但拥有PHP的可嵌入HTML技术，也同样支持用PerlScript写ASP的。但是如果你希望你的程序可以编译执行，那么可嵌入式方法显然是不可能的。我几乎不用ePerl、 mod_perl等可嵌入式Perl

　　HTML

　　页，但是我更不赞成很多人把HTML置入程序之中，这两种方法都有其好处以及坏处。我推崇模板方式的编写方法，大家可能也用过模板方式，可能认为它在页面量处理方面有很多问题？但是，那些都是陈旧古老的方式，也是说明你并未精通Perl语言，采用模板方式调入HTML页是相当好的方法，几乎可以达到所有可嵌入式技术的功效，也可以像HTML程序内置方式的灵活操纵性。我觉得程序员和HTML制作员是不同的，如果我们采用ePerl、PHP、ASP，那么你就不是一个真正的程序员，那只是HTML技术的服务器处理部分罢了，真正的程序是程序本身，而不附带任何其它特性。

　　我认为好的教学文章，应该让读者充分了解内容，充分扩展层面。诸如编写一个Httpd程序，有很多传统的程序员根本不了解

　　http的通讯协议，即使讲了很多内容，但是仍然搞得半懂不懂。本文将会充分扩展层面，让读者了解更多的技术资料，而不必看完本文后又要去寻找关联技术资料。同样国内目前有很多技术性书籍，都是来自国外的译本，但是很多译者并非此技术专家，在翻译的时候很多东西无法充分理解，带来的时间上的障碍。我希望国内的编程专家能够写一些有用的技术文章和书籍，因为我看过很多国人自己写的文章都容易理解和操作。但是问题在于都偏向与基础教学，目前急切地需要有更深层次的技术资料。

　　内容大纲：

　　1)

　　PerlApp和PerlSvc编译方法

　　New!

　　Easy!

　　2)

　　Perl2Exe

　　编译方法

　　3)

　　PerlCC

　　编译方法

　　4)

　　PerlCC之Bytecode

　　编译解析法——Just

　　Like

　　Java

　　Program！

　　New!

　　Cool!

　　5)

　　OOP面向对象的程序之为编译而设计

　　6)

　　HTML模板编程方式——真正的WEB程序(Program)

　　Good!

　　7)

　　联合编译以及实例

　　Advanced!

　　说明：如何选择阅读以上内容是很重要的，以上内容并非适合各个阶层的Perl程序员。PerlApp和PerlSvc适合在 Windows2000环境下编程初学者和一般的Perl程序设计人员，Perl2Exe适合在非Windows和Windows95/98/Me

　　环境下编程初学者和一般的Perl程序设计人员。PerlCC适合与任何操作系统平台，但是操作复杂，适合于中级程序员和高级程序员开发大宗商业化软件（公众客户）使用。ByteCode是一种新型的编译方式，类似Java，它需要Perl解析器的支持，但是它是灵活性最高的编译方式，适合中级程序员和高级程序员开发大宗商业化软件（服务商）使用。如果你希望你可以编写出一个出色的Perl编译的程序，那么你必须阅读第4节，它将告诉你如何使用面向对象的程序设计技术来实现Perl编译程序的高效良好的开发环境和模式。

　　第一节

　　PerlApp和PerlSvc编译方法

　　PerlApp和PerlSvc是ActiveState

　　公司开发的，它属于

　　Active

　　Perl

　　Dev

　　Kit(PDK)产品。本编译方法只适合于Windows2000上运行，其它系统均无法正常使用，编译程序必须是标准Perl和ActivePerl。

　　PDK下载地址：http://ftp.tanshuai.net/pub/

　　ftp://ftp.tanshuai.net/pub/

　　PerlApp和PerlSvc，前者是标准的应用程序，后者是Windows2000的服务程序（类似与IIS，一开机就启动的服务程序，而且无法中断它的运行）。他们有两种运作模式：依靠（Dependent）和独立（Freestanding），“依靠”模式程序运行的系统上必须有Perl 解析器和相关模块，这样的程序相对较小；“独立”模式，Perl解析器等相关模块都会完全嵌入在程序之中，这样的程序在任何Windows2000操作系统上都可以顺利运行，而不需要额外的支持，但是程序相对较大。

　　使用方法：

　　标准使用方法（“依靠”模式）：

　　perlapp

　　这样程序就会创建一个以脚本名命名的可执行文件

　　“独立”模式：

　　perlapp(或者perlsvc)

　　–f

　　定义输出可执行文件名：

　　perlapp(或者perlsvc)

　　–e=tanshuai.exe

　　test.pl

　　它将会把test.pl文件输出的可执行文件名改为“tanshuai.exe”。

　　设置程序属性：

　　perlapp(或者perlsvc)

　　-i=

　　类表名

　　目标项目

　　Filenumber

　　文件号码

　　Productnumber

　　产品号码

　　Productname

　　产品名称

　　Legaltrademarks

　　合法商标

　　Filedescription

　　文件说明

　　Originalfilename

　　原文件名

　　Fileversion

　　文件版本

　　Comments

　　注解

　　Productversion

　　产品版本

　　Companyname

　　公司名称

　　Internalname

　　内部名称

　　Legalcopyright

　　版权

　?≌飧鍪焙蛴行┤丝赡懿淮竺靼祝飧鍪歉墒裁从玫摹Ｈ绻阍嘈垂齏in32程序，那就会知道，它是Windows程序的版本说明（如图1）。

　　图1

　　Perl.exe文件的版本说明

　　名称与数值用“;”分开。而且所有项目值都需小写。

　　清理PerlCtrl

　　的DLL：

　　perlapp(或者perlsvc)

　　–c

　　添加模块：

　　perl(或者perlsvc)

　　–a=

　　如：perlapp

　　tanshuai.pl

　　–a=IO:Socket;XML::Parser;Tanshuai::Http;MP3;

　　这样模块IO:Socket，XML::Parser，Tanshuai::Http和MP3就被置入程序内。

　　Perl图形界面：

　　perlapp(或者perlsvc)

　　–g

　　如果你的程序非命令行或者CGI，是T/K图形界面的话，就需要采取这个命令。

　　排除

　　Perl56.dll：

　　perlapp(或者perlsvc)

　　–x

　　Perl56.dll是PerlApp执行的关键，但是如果你不希望他和你的程序在一起，你可以把它排除，另行安置，但是主意，一定要保证它的存在否则就无法正确运行

　　添加额外文件：

　　perlapp(或者perlsvc)

　　–b=

　　如果你希望在程序内部打开文件，请使用这个命令。

　　如：open(FILE,“./PerlAPP.TXT“);@FILE=;close(FILE);

　　这样就必须打开“PerlAPP.TXT“文件，但是你如果把它置入程序，它将会在内存中打开。（无法写入）

　　报告嵌入模块错误：

　　perlapp(或者perlsvc)

　　-r

　　一些模块无法嵌入，使用该命令可以得出相关信息。

　　输出详细信息：

　　perlapp(或者perlsvc)

　　-v

　　如：perlapp

　　tanshuai.pl

　　–v

　　输出：

　　Using

　　myScript.pl

　　for

　　script

　　name

　　Input

　　script

　　name:

　　tanshuai.pl

　　Output

　　exe

　　name:

　　tanshuai.exe

　　Exe

　　Mode:

　　Perl

　　Dependent

　　Creating

　　dependent

　　executable

　　解释：PerlApp

　　和PerlSvc无法在Windows95/98/ME

　　PerlApp使用的部分Win32

　　API函数未被支持。

　　第二节

　　Perl2EXE

　　编译方法

　　Perl2EXE

　　可以在大多数流行系统上编译运行，但是我几乎不用它，我认为它是“最低级”编译。而且它也是最容易被反编译的程序。所以我不推崇它，也不愿意用它。不过适合很多初学者。

　　它的原理很简单，知识把原来的Perl代码放入程序中和内置的解析其共同运行，而且速度不如PerlAPP。

　　Perl2EXE

　　同样可以在

　　http://ftp.tanshuai.net/pub

　　和

　　ftp://ftp.tanshuai.net/pub/

　　下载。

　　标准方法：

　　perl2exe

　　Perl解析器选项值设定：

　　perl2exe

　　–perloption=““

　　参数主要就是perl解析器的参数如：-w

　　–X

　　–e

　　等等。

　　共享dll库：

　　perl2exe

　　–small

　　如果你是多个程序编译，那么使用这个命令，比较“划算“，你只要把它们的共享dll库，复制到共同的执行目录下，即可。共享DLL库：p2xdll.dll或者p2x560.dll。

　　启动图形界面：

　　perl2exe

　　–gui

　　和perlapp是同样的作用。

　　设置执行程序的图标：

　　perl2exe

　　–icon=

　　设置输出文件名：

　　perl2exe

　　-o=

　　设置运行系统平台：

　　perl2exe

　　–platform=

　　如：Sun操作系统

　　perl2exe

　　–platform=sun

　　program.pl

　　Linux操作系统

　　perl2exe

　　–platform=linux

　　program.pl

　　第三节

　　PerlCC

　　编译方法

　　PerlCC是Perl的最好最优秀最强的得编译器，而且是免费的。但是它的调试与运作是比较方“烦”人的?Ｌ乇鹗窃谖⑷淼腤indows就更令人头疼。

　　PerlCC编译器的原理是分析Perl原代码，然后根据标准转换方式，转换成C语言，当然这里的C全部采用Perl的头文件(Header)，也就是全部采用Perl的函数，即使你只有一行的

　　“print

　　“hello

　　world”;”都需要无数行的定义后才会出现这样的效果。但是令人惊奇的是perl编译后的这个“hello

　　world”比C/C++的编译后的可执行文件还要小。采用PerlCC转换出来的C源代码几乎是不可读（不可理解）的，几乎比汇编语言还令人费解。所以这样的程序即使被反编译出来，它的源代码也是会令人无法琢磨，但是这种程序根本几乎无法反编译，至少目前是，我相信只要Windows未被反编译那么它编译出来的Perl可执行程序也同样无法反编译。

　　如果使用PerlCC是大家最关心的事情，在Unix-Style系统是，凡是安装perl5.0以上版本的都可以使用PerlCC，编译程序，但是必须有C编译器。这个我就不必太多说了。因为这个方法不大适合初学者，一般中级程序员对Unix-Style系统应该是较为了解的。

　　在Windows中，一定要安装VC6.0（也可以是GCC，但是安装复杂）否则仍然无法编译，安装VC6.0是简单的事情，只要找到微软VC6的光盘，安装。

　　然后，下载Perl源代码（地址：http://ftp.tanshuai.net/pub/

　　），下来后解开压缩（Windows可以用Winzip）。

　　UNIX-Style

　　命令行模式下：

　　#cd

　　#make

　　#make

　　test

　　～可选

　　#make

　　install

　　～完成安装

　　#export

　　PATH=$PATH;/;

　　～设置变量

　　Windows

　　命令行(Command.com

　　CMD.COM)模式下：

　　C:\>cd

　　C:

　　nmake

　　C:

　　nmake

　　test

　　～可选

　　C:

　　nmake

　　install

　　Windows

　　95/98/Me

　　在

　　AutoExec.Bat文件中设置路径。

　　Windows

　　Nt/2000

　　在“控制面板”－〉“系统”－〉“高级”－〉“环境变量”中设置

　　注意：千万不要使用AtivePerl，而且最好在安装标准编译Perl后，删除AtivePerl，AtivePerl“不支持” PerlCC，虽然它也有带perlcc

　　但是至少我是永远都无法编译成功的，我也不知道为什么，我也不想知道为什么，因为很多程序是在Unix- Style

　　上运作的，大多数都是标准Perl，所以建议大家为了兼容所有操作系统，请尽量用标准Perl编写和解析程序。

　　好啦，一切安装、设置就绪后，重新启动计算机后。我们进入我们想要编译的文件目录中，输入“perlcc

　　”（注意：这里的程序扩展名称必须是.pl

　　.bat

　　.p

　　.pm，.cgi也不行，你可以修改perlcc.bat文件来支持其它扩展名）。

　　输入以上命令后，会出现一大堆你可能看不懂的命令（这些你并不需要关心）

　　例如我要编译一个内容为：

　　print

　　“ok”;

　　的Perl程序，该文件名：abc.pl。

　　输入：

　　perlcc

　　abc.pl

　　PerlCC输出内容：

　　------------------------------------------------------------------------------

　　Compiling

　　abc.pl:

　　-------------------------------------------------------------------------------

　　Making

　　C(abc.pl.c)

　　for

　　abc.pl!

　　C:\perl\5.6.0\bin\MSWin32-x86\perl.exe

　　-IC:/perl/5.6.0/lib/MSWin32-x86

　　-IC:/perl

　　/5.6.0/lib

　　-IC:/perl/site/5.6.0/lib/MSWin32-x86

　　-IC:/perl/site/5.6.0/lib

　　-I.

　　-MB

　　::Stash

　　-c

　　abc.pl

　　C:\perl\5.6.0\bin\MSWin32-x86\perl.exe

　　-IC:/perl/5.6.0/lib/MSWin32-x86

　　-IC:/perl

　　/5.6.0/lib

　　-IC:/perl/site/5.6.0/lib/MSWin32-x86

　　-IC:/perl/site/5.6.0/lib

　　-I.

　　-MO

　　=C,-l2000,-umain,-uattributes,-uDB,-uWin32

　　abc.pl

　　Starting

　　compile

　　Walking

　?ree

　　Prescan

　　Saving

　　methods

　　Bootstrap

　　attributes

　　abc.pl

　　Writing

　　output

　　Loaded

　　B

　　Loaded

　　IO

　　Loaded

　　Fcntl

　　abc.pl

　　syntax

　　OK

　　Compiling

　　C(abc)

　　for

　　abc.pl!

　　C:\perl\5.6.0\bin\MSWin32-x86\perl.exe

　　-IC:/perl/5.6.0/lib/MSWin32-x86

　　-IC:/perl

　　/5.6.0/lib

　　-IC:/perl/site/5.6.0/lib/MSWin32-x86

　　-IC:/perl/site/5.6.0/lib

　　-I.

　　E:\

　　DOCUME~1\ADMINI~1\LOCALS~1\Temp/abc.pl.tst

　　Couldn't

　　open

　　E:DOCUME~1ADMINI~1ocals~1temp/abc.pl.val

　　cl

　　-Od

　　-MD

　　-DNDEBUG

　　-DWIN32

　　-D_CONSOLE

　　-DNO_STRICT

　　-DPERL_MSVCRT_READFIX

　　-Od

　　-

　　MD

　　-DNDEBUG

　　-Ic:\perl\5.6.0\lib\MSWin32-x86/CORE

　　-o

　　abc

　　abc.pl.c

　　/link

　　-nologo

　　-nodefaultlib

　　-release

　　-libpath:"c:\perl\5.6.0\lib\MSWin32-x86\CORE"

　　-machine:

　　x86

　　-libpath:c:\perl\5.6.0\lib\MSWin32-x86/CORE

　　c:\perl\5.6.0\lib\MSWin32-x86\CO

　　RE\perl56.lib

　　oldnames.lib

　　kernel32.lib

　　user32.lib

　　gdi32.lib

　　winspool.lib

　　com

　　dlg32.lib

　　advapi32.lib

　　shell32.lib

　　ole32.lib

　　oleaut32.lib

　　netapi32.lib

　　uuid.lib

　　wsock32.lib

　　mpr.lib

　　winmm.lib

　　version.lib

　　odbc32.lib

　　odbccp32.lib

　　msvcrt.lib

　　abc.pl.c

　　然后再输入：abc.exe，如果输出结果与abc.pl一样，那么编译就成功了。这个程序是使用Visual

　　C++的CL.EXE

　　C/C++编译程序编译的。在Unix-Style下是使用CC或者GCC编译的。

　　模块编译注意事项：

　　目前PerlCC标准编译方式可以支持大多数程序的模块使用，但是我推荐尽量使用内部命令来完成相应任务，诸如IO::Socket模块可以使用 socket

　　内部函数。因为

　　IO::Socket是无法在PerlCC下面编译成功的，为什么？

　　大家知道Perl很多的模块是本身Perl的语言和内部函数编写的。但是有一部分包括IO::Socket

　　DBD

　　DBI等这些常用的模块，由于Perl本身内置函数限制，采用了PerlXS接口通过C

　　程序达到目的的。这些是通过第三方程序达到目的模块是无法成功的编译。所以我建议尽量使用非含有第三方程序的模块编程。有人可能会说了，我使用了DBI

　　DBD来操作数据库，难道让我放弃吗？不，我觉得任何事情都是有它的解决方法，Perl也一样。Perl

　　Bytecode将会解决这一问题（详情情看第4节）。

　　编程方式注意事项：我为什么要在开头说OOP

　　等相关技术以及在本文中提及了OOP的编写？因为PerlCC编译有一定的局限性，如果采用 OOP就可以避免这个局限性，而且会更好的发挥，众所周知，OOP是编程发式的有一革命，你迟早都会涉及的，所以早一点总比晚一点好。我们经常编写程序的时候用“require”命令来引用其它Perl程序文件。然而这种方式不是PerlCC不支持，PerlCC当然支持，这个命令，但是问题在于它无法被编译入PerlCC的主程序内，也就是说主程序被编译了，然而外部引用的这个没有被编译，这样会造成很多问题，首先是暴露了原始代码，其次它人可以随意修改，肯能导致很多量（比如密码）被套出，也可以修改程序运行的模式。但是这也是有点，最后一节将会详尽讲述。

　　第四节

　　PerlCC之Bytecode

　　编译解析法

　　Bytecode

　　是

　　PerlCC的另一编译方法，必须在Perl5.6以后版本才有得支持。它的原理就好像Java一样，它会把Perl文件编译成二进制令人费解的乱码文件，它是采用类似MD5这样的反向加密编码，几乎不可能反编译，和可执行程序一样复杂，但是它不可以直接执行哦。想要执行它，必须用Perl解析器，就好像

　　Java

　　编译后必须有Java解析器，否则就无法执行。我习惯成为编译解析法，有的时候就说Just

　　Like

　　Java

　　Progam!

　　它的编译方法也不难，但是竟然有很多人都不知道，我问过很多Perl前辈，他们也不大了解这一方法。而且很多我也从来见过谁写过这样的程序（难道我是国内第一个知道的吗？：）

　　使用方法：perlcc

　　–b

　　编译后它会输出一个文件，你打开它看，定会吃惊。而且这种文件最小是180KB，比perlcc

　　C语言转换编译多了很多。

　　它的好处在于，一处编译到处使用。但是对于CGI就不大好处理。所以还是建议在各个平台进行编译。

　　例如我ByteCode编译上节的abc.pl程序文件：

　　输入：

　　perlcc

　　–b

　　abc.pl

　　Perlcc

　　–B

　　输出

　　----------------------------------------------------------------------------

　　Compiling

　　abc.pl:

　　----------------------------------------------------------------------------

　　Making

　　Bytecode(abc.plc)

　　for

　　abc.pl!

　　C:\perl\5.6.0\bin\MSWin32-x86\perl.exe

　　-IC:/perl/5.6.0/lib/MSWin32-x86

　　-IC:/perl

　　/5.6.0/lib

　　-IC:/perl/site/5.6.0/lib/MSWin32-x86

　　-IC:/perl/site/5.6.0/lib

　　-I.

　　-MB

　　::Stash

　　-c

　　abc.pl

　　C:\perl\5.6.0\bin\MSWin32-x86\perl.exe

　　-IC:/perl/5.6.0/lib/MSWin32-x86

　　-IC:/perl

　　/5.6.0/lib

　　-IC:/perl/site/5.6.0/lib/MSWin32-x86

　　-IC:/perl/site/5.6.0/lib

　　-I.

　　-MO

　　=Bytecode,-umain,-uattributes,-uDB,-uWin32

　　abc.pl

　　abc.pl

　　syntax

　　OK

　　好了，然后perl

　　abc.plc

　　就可以执行了。

　　执行注意事项：

　　使用Bytecode

　　编译后的文件，你一般需要更名回原来的文件名，否则容易在运行程序后出现警告信息“Attempt

　　to

　　free

　　unreferenced

　　scalar.”虽然它对程序没有本质影响，但是不美观嘛，另一种解决方法就是使用

　　perl

　　–X

　　，关闭所有警告消息，警告不等同与错误，所以一般情况下，某些警告是不必要的。

　　同样ByteCode

　　编译程序可以被引用(require)但是不能调用(use)，可以作为对象编程的对象。这是一个很灵活的东西，如果你希望你的模块被大家使用，但是不想让大家知道其中的操作，那么你就是用ByteCode，但是你的模块将永远不会被纳入CPAN。这种方法就好像OCX控件。

　　但是注意，但是使用某个模块的时候，你必须保证使用该程序的机器上有这个模块，最简单的方法你可以把模块一起复制使用，但是有些第三方程序模块需要重新编译，你如果不希望其它人操作模块或者是看到引用的模块，也可以使用 Bytecode。但是注意，一定要用require方法调用加密模块啊。这个世界总是这样，总会有些遗憾的，这样的话就不能用一些模块和OOP。

　　不知道你了解Python这个语言否？它Perl很相像，比Perl还有简单呢。但是我认为很多东西都是抄Perl的，包括它得二进制编译方法，就和Perl

　　Bytecode没有任何区别。反正大家也都知道PHP也是抄了Perl不少东西。

　　--------------------------------------------------------------------------------

　　第五节

　　OOP面向对象的程序之为编译而设计

　　面向对象的程序设计已经不是什么新颖的话题和技术了。它在C++和Java中，尤为重要，哎，我觉得在写大宗程序的时候会很有帮助，但是在小程序里面反而麻烦，还不如普通的函数使用。OOP大多数基本的Perl教程都有说明，所以这里也不多讲“废话”，主要讲述OOP在编译Perl程序中的应用以及Perl

　　OOP编写的技巧，所以值得一看。

　　前面说过在PerlCC编译可执行程序的时候，不要使用require函数，这是没有错的。但是有很多人写require习惯了，而且不经常接触OOP模式，所以不习惯。

　　其实使用use比require

　　好很多，还有很多人用require引入变量，这是大大错误，这是一种程序上编写的失误，所以建议以后大家不要用这种方式。编译的时候也不要用这种放式？那么用什么方式？如果你是一个有经验的Perl程序员，你应该知道。使用OPEN函数，传送变量值。这是编译Perl程序的关键，一些定量（不变的量），最好放在程序内部，变量以及客户所需要设置的量使用我先前说的那种方式。具体实践方法：

　　Tanshuai

　　OpenConf

　　函数代码：

　　sub

　　Open_Conf

　　{

　　open(FILE,

　　"$_[0]");#打开～调用函数的文件名

　　my

　　@Conf_Info

　　=

　　;#赋予～文件内容到@Conf_Info数组中

　　close(FILE);#关闭~文件

　　my

　　$Conf_Infos

　　;定义~局部变量

　　foreach

　　$Conf_Infos

　　(@Conf_Info)

　　{#循环

　　($name,

　　$value)

　　=

　　split(/=/,

　　$Conf_Infos);#区分～名称和数值

　　($value,

　　$dot)

　　=

　　split(/;/,

　　$value);#区分～结束符

　　$value=~s"'""gi;#删除～不必要的符号

　　$CFG{$name}

　　=

　　$value;#复制～参数到散列变量

　　}

　　}

　　配置文件原形：

　　Port='81';

　　IP="127.0.0.1";

　　Listen='5';

　　调用方法：

　　Open_Conf('../Conf/httpd.cfg');#../Conf/httpd.cfg为路径和文件名

　　$port

　　=

　　$CFG{'Port'};#将文件原型的Port量复制到$port上，当然你可以不必这样做，可以直接引HASH

　　$ip

　　=

　　$CFG{'IP'};#和上面的一样

　　这样就解决了配置变量的问题，我想这个函数对某些人一定会有很重要的意义。

　　在这里OOP就是use

　　方式的调用。

　　现在我们要着重讨论OOP问题了，如果你不想把一大堆的程序代码写在一个文件中，那么使用OOP就最好了，原来是可以使用require，但这里不可一。OOP在Perl的好处显而易见，首先可以编译，即使不编译，它也同require有明显差异。

　　OOP是在程序需要时调入，不需要时自动消失（通常说破坏对象）。require则不然，一旦调入一直存在，除非你使用exit

　　函数，所以在某些方面影响了程序的效率。

　　例如我们要写一个Shell程序，一共需要一下部分：输入／输出（I/O）、命令判断（CMD）、System（系统操作）。

　　我们平时也可以使用require，在编译的时候就好了，同样我们虽然可以按照子程序放在一个程序里面，但是在这里只是例子，但是在大宗商业项目中，这样做是显然费时费力的，会增加维护成本，无法联合开发等多种弊端。

　　我们把他们分为４个文件３个模块一个主程序（编译）：IO.pm、CMD.pm、System.pm、Shell.pl。

　　首先要构造对象：

　　Tanshuai

　　对象构造方法：

　　package

　　;

　　my

　　%IN;#定义～包（对象）内部的散列

　　sub

　　new

　　{#构造函数名

　　my

　　$class

　　=

　　shift;

　　%IN=

　　@_;#将调用对象的数值传入散列IN中

　　my

　　$self={};

　　bless

　　$self,$class;

　　return

　　$self;

　　}

　　虽然上面的构造有些不好的地方，但是它是通用对象的构造方法，利于调试，如果你认为没程序上的问题，就可以“封包”，适当修改变量传引方式。

　　这里的所有对象只有是一个单一函数，只包括：构造对象和操作对象的两个部分，这是一个简单的对象引用，但是这种应用在实际的开发总是相当无畏的，在这里是为了方便教大家，所以不要什么程序都要对象。

　　IO.pm：

　　package

　　IO;

　　my

　　%IN;

　　sub

　　new

　　{

　　my

　　$class

　　=

　　shift;

　　%IN

　　=

　　@_;

　　my

　　$self={};

　　bless

　　$self,$class;

　　return

　　$self;

　?

　　sub

　　do

　　{#操作对象函数

　　my

　　$self=shift;

　　defined

　　($_

　　=

　　);#启动Shell得取输入信息

　　chomp;#去掉无用的字符

　　s/^\s+//;#过滤危险字符

　　my

　　$cmd

　　=

　　$_;#复制量

　　return

　　$cmd;#返回量

　　}

　　1;

　　CMD.pm：

　　package

　　CMD;

　　my

　　%IN;

　　sub

　　new

　　{

　　my

　　$class

　　=

　　shift;

　　%IN

　　=

　　@_;

　　my

　　$self={};

　　bless

　　$self,$class;

　　return

　　$self;

　　}

　　sub

　　do

　　{#操作对象函数

　　my

　　$self=shift;

　　my

　　$cmd

　　=

　　@_

　　;#传入调用程序的命令

　　while

　　(){#执行循环，直到退出

　　if

　　($cmd

　　eq

　　'ver')

　　{

　　print

　　"Tanshuai

　　Command

　　Shell

　　v.1.0.0.001225b\n";

　　print

　　"(C)Copyright

　　Tanshuai.Com

　　1997-2001\n";

　　print

　　'EMAIL:[e-mail]';

　　print

　　"\n";

　　&do;

　　}

　　elsif

　　($cmd

　　eq

　　""){

　　&do;

　　exit;

　　}

　　elsif

　　($cmd

　　eq

　　'exit'){

　　print

　　"Exit

　　System";

　　exit;

　　}

　　elsif

　　($cmd

　　eq

　　‘dir'){

　　use

　　System;#使用包System

　　my

　　$sys

　　=

　　System

　　::new

　　;#建立基于System包的对象$sys

　　$sys->do($cmd)

　　;#操作对象sys传送命令

　　&do;

　　}

　　else

　　{

　　print

　　"

　　Command

　　Not

　　Found

　　";

　　&do;

　　}

　　}

　　}

　　}

　　1;

　　System.pm：

　　Package

　　System;

　　my

　　%IN;

　　sub

　　new

　　{

　　my

　　$class

　　=

　　shift;

　　%IN

　　=

　　@_;

　　my

　　$self={};

　　bless

　　$self,$class;

　　return

　　$self;

　　}

　　sub

　　do

　　{#操作对象函数

　　my

　　$self=shift;

　　my

　　$cmd

　　=

　　@_

　　;

　　system($cmd)

　　;#使用System函数操作系统，启动dir命令

　　1;

　　以上各个模块（对象）已经建立完毕，我们现在只需要设计一个简单的操作对象程序。这个时候你发现搞对象原始是如此简单：）

　　Shell.pl

　　主程序：

　　use

　　IO;#调用~模块（对象）

　　IO.pm

　　use

　　CMD;#调用~模块（对象）

　　CMD.pm

　　my

　　$IO

　　=

　　IO::new;#创建对象~$IO

　　my

　　$CMD

　　=

　　CMD::new;#创建对象~$CMD

　　my

　　$GetInput

　　=

　　$IO->do;#从对象IO得到输入信息；

　　$CMD->do("$GetInput");#将得到的输入信息发送给对象$CMD，进行分析操作。

　　exit

　　;

　　这样就完成了，你可能问为什么没有使用对象System

　　？那是因为在对象CMD中继承对象System，所以我们不需要在程序中使用System，要不然就累了。

　　当你看到shell.pl程序时候，你有何感想？是不是觉得搞对象简单了很多呢？给我的想法就是，以后程序员会越来越多，因为对象编程太简单了，而我们呢？哎，我们就去做对象。以后编程和做对象的人可能要区分开来了。

　　现在编译shell.pl后，把这些对象删除，看看能否使用？当然能，假如你使用require就出现无法执行的致命错误。

　　哎呀，好累了。我就要吐血了

　　#$@，还没有吃晚饭呢。明日继续吧。

　　这里告诉大家编译Perl在较大或者较复杂的程序项目中，使用对象，会有很好的作用。你可能会问，用对象编译出来的程序如此之大，是否会影响效率？肯定会，但是它并非明显，就好像一个小小的15KB的程序，在运行的时候可能占用超过100MB的内存。由于它会整个被内存启动，但是并不会有较大幅度的效率下降。如果还想使用类似require的方法，就要看最后一章了。

　　第六节

　　HTML模板编程方式——真正的WEB程序

　　什么是真正的程序(Program)？我们平时使用ASP、PHP这些都不属于程序，它们只是一种页(Page)，动态页面(Dynamic

　　Page)，但是我们一般称作页面编程(Web

　　Programming)，但这种说法不确切（并非不正确）。程序就是程序，并非所有的语言都叫做程序或编程语言。很多权威的书籍、文章和网站（例如：Yahoo!）都没有将ASP、PHP当作程序（编程语言）来解释。ASP是一种语言介质，PHP在 Yahoo的定义页只是类似于SSI。他们说要做的东西顶多就是一个“后台（服务器端）的HTML（或者说是Script）”，可以想象，页（Page）和程序（Program）的差异，至少可以说页是由程序来解析输出结果的。那么也就是说，页想要做的事情比程序要局限得多。PHP不是一种程序，如果用 ASP或PHP做一个Http服务器，你会有什么感觉？你见过吗？你见过ASP、PHP做的非Web“程序”吗？我想你没有见过。你相信用ASP、PHP 编制出类似于Windows的图形（GUI）界面程序吗？那是一种什么感觉呢？所以，做程序和页面是两种不同的概念，在国内不知道是翻译的时候错误，还是大家都是这样理解的。

　　如果你要写一个Web页，做一些小动作，用ASP、PHP、ePerl等未尝不可。但是它不是来给你做大宗Web项目或者软件而设计的。至少我是这样认为。而且我觉得Perl目前在程序中直接使用HTML是一种不好的习惯或者行为。它将增加维护成本，降低工作效率等诸多不便因素。其实我觉得外制式的模板方式的HTML套入法是适合时代潮流以及未来软件升级扩展的。至少可以让客户在不触及程序核心的前提下，随意修改界面，可以得到个性化、特性化的设置——未来趋势。而且我们可以降低很大维护的成本，同时某些不变的（诸如：版权、声明、标示）内容仍然可以使用内置式或者在套入模板的过程中进行相应修改等。如果你真的不喜欢他人修改模板，那么你可以使用加密方式，对模板文件进行加密，可以达到程序操作目的，和降低维护成本，而禁止他人修改的目的（推荐使用：Crypt::RC4）。

　　本章将会着重讲述在Perl程序中（不但只是为了编译Perl）使用套入法，套入模板HTML，并且进行灵活的HTML操作。

　　以下是标准的内置式和外制式的HTML操作：

　　内置式HTML程序：

　　#!perl

　　$Var="HELLO

　　WORLD";

　　print

　　$Var

　　HTML

　　exit;

　　外置式HTML程序：

　　#!perl

　　$Var="HELLO

　　WORLD";

　　open

　　(HTML,"../HelloWorld.html");#打开HelloWorld.html文件

　　@HTML=;

　　close

　　(HTML);

　　print

　　Content-type

　　:text/html

　　;

　　foreach

　　(@HTML)

　　{#循环

　　$_

　　=~

　　s/\*Var/$Var/g;#替换Hellworld.html

　　文件中*Var的内容为变量$Var的内容

　　print

　　"$_";#输出

　　}

　　exit;

　　外置式HTML文件

　　HellWorld.html：

　　*Var

　　上面的例子都是现实操作中广泛（流行）用法，大家可能感觉到外置式有些复杂，其实不然，你只要把它做成一个函数或者对象就相当容易了。

　　关键问题在于，变量的替换，若使用上面的方法，有些不妥，因为默写模板页面不一定是适合的那些变量，如果你把所有的变量都放在foreach里面，那么势必对于程序运行资源造成极大浪费，而且得?怀ナВ跋煨省Ｕ庋龀梢桓龊蛘叨韵螅曰嵊胁煌ㄓ玫奈侍狻?

　　所以建立一个灵活的分析方法，对于模板HTML处理提供良好的快捷的运作模式。

　　这个时候我们就要利用Perl强大的语法分析，来做一个自己的HTML语言分析语句了。这个语句看似简单缺令人头疼。

　　我们现在以“*”符号作为模板中的变量（类似于Perl

　　中的$），这样有助于辨析。那么我想要把所有以“＊”开头的变量，自动变换成程序内的对应变量，例如：要把*abc成为内部的$abc。一般情况我们需要逐个设置，这样大大浪费了时间，我们现在需要做一个通用的方法，无论什么的量都自动转换。这个语法很简单：

　　$_

　　=~

　　/\*(\w+)/;

　　看似简单的一局话，却有很大的作用，这句就是把以*开头的字符的名找出来，但是有趣的是，你不需要进行太复杂的，只要遇到空格或者其它非标准字符，就会自动排除。

　　现在我们要把找到的字符名（即HTML的自定义变量）发给一个临时变量中（该步骤可以不做）：$tmp

　　=

　　$1

　　;

　　现在要做的就是把这个*abc换成量$abc的值：

　　$_

　　=~

　　s/\*$tmp/$Html{"$tmp"}/g

　　这里的$Html是散列变量(HASH)，为了方便和容易理解，我在这里采用HASH，这样对应的$Html{‘abc’}就被提出来，换掉*abc了。

　　下面就是我做的模板套用函数与例子。

　　打开文件的函数RTF：

　　#!perl

　　sub

　　RTF{

　　open(READTXTFILE,"$_[0]");

　　@readtxtfile=;

　　close(READTXTFILE);

　　return

　　@readtxtfile;

　　}

　　分析模板的函数PHF：

　　#!perl

　　sub

　　PHF

　　{

　　my

　　$file

　　=

　　"$_[0]";

　　@HtmlFileMessages=&RTF("$file");#Open

　　File;

　　foreach

　　(@HtmlFileMessages)

　　{

　　$_

　　=~

　　/\*(\w+)/;

　　#替换网页的变量，批量处理，寻找“*

　　--------------------------------------------------------------------------------

　　第七节

　　联合编译以及实例

　　本章至关重要，你已经知道Perl的两种最好的编译方法。但是他们都有利弊，只要稍动脑筋，就可以实现“强强联合”，这样可以尽量避免那些缺憾。

　　联合编译的道理很简单，但操作起来也不那样一帆风顺，其中有很多地方值得注意。联合编译主要有一个主程序和多个子程序(FILE)组成。它们之间是使用require函数连接。主程序只做连接等分析工作，子程序做细节工作，包括对象操作，模块引用。我们采用PerlCC

　　翻译C的方式来编译主程序成为一个可以执行的文件，在把子程序用Bytecode方式编译，这样即可免去无法使用部分模块的问题，也可以直接使用Perl程序，只要在主程序的前面定义一下模块引用路径，方法：

　　use

　　lib

　　‘’;

　　这样就可以了，把那些需要调入的模块，放在制定路径中就好了。而且在CGI或者Socket的网络编程和页面编程中，使用该模是有助于提高效率，降低资源占用率。如果使用整体编译方法，那么每次启动必然会耗费相当大的内存，同样这个程序要重复关闭启动，做Fast

　　CGI也是相当不方便的，这也是 Fast

　　CGI在Perl中的最好的方法。根据不同的请求套入不同的子程序。

　　首先我们使用

　　cgi-lib.pl得去POST和GET数据（这个时候有些人会问，为什么不使用cgi.pm，我不是不想用它，而是cgi.pm在perlcc的任何编译模式都会有问题）

　　然后根据不同的请求，我在这里设置为action。

　　例如：

　　require

　　“cgi-lib”;

　　if

　　($in{‘action’}

　　eq

　　“”)

　　{

　　require

　　“display.pl”;

　　&display;

　　exit;#可选

　　}elsif

　　($in{‘action’

　　}eq

　　“love”)

　　{

　　require

　　“love.pl”;

　　&love;

　　exit;#可选

　　}

　　这样是很好的。我们使用perlcc

　　标准编译方法编译它，然后用-b模式编译display.pl和love.pl。然后把它们的名字改回.pl。

　　注意在使用perlcc编译程序的时候，编译出来的程序必须带有应用程序扩展文件，如dll和so。因为你的程序还需它们支持，这个文件在 Perl的解析软件目录下，例如perl5.6就是perl56.dll，必须把它拷贝到执行文件目录地下。在Linux下是.so。你最好在一个没有 Perl

　　平台解析器的环境下进行测试，把那些需要使用的包也包括在里面。即使是VC等软件编译出来的程序，都需要在纯环境下测试，这是必要的。这样就可以测试出程序的一些不必要的问题。

　　另外perlcc

　　的任何模式对语法都是很挑剔的，所以你最好使用比较正规的编写方法，而且单个perl程序如果程序量太大，必须截取到另一个文件中，否则编译后容易出现内存溢出现象。

　　大家要知道如果你的子程序使用了ByteCode编译，但是他人仍然可以把你的子程序改成源代码形式，这样就好像我说的会被套出很多量。最好的的方法，是采用ByteCode

　　编译的程序写入一个Auth认证函数。当然最保险的方法是使用文件内容验证，但是效率影响，我认为不大必要。

　　主程序：

　　#

　　!perl

　　require

　　“cgi-lib”;

　　if

　　($in{‘action’}

　　eq

　　“”)

　　{

　　auth

　　(“display.pl”);

　　&display;

　　exit;#可选

　　}elsif

　　($in{‘action’

　　}eq

　　“love”)

　　{

　　auth

　　(“love.pl”);

　　&love;

　　exit;#可选

　　}

　　sub

　　auth

　　{

　　require

　　"$_[0]

　　"

　　;

　　$auth

　　=

　　&check

　　;

　　if

　　($auth

　　ne

　　"checkabcdefg

　　"){

　　exit

　　;

　　}

　　}

　　Display.pl

　　#

　　!perl

　　sub

　　check

　　{

　　$check=

　　"checkabcdefg

　　"

　　;

　　return

　　$check

　　;

　　}

　　sub

　　display

　　{

　　print

　　"content-type

　　:text/html

　　\n\n"

　　;

　　print

　　"hello

　　baby

　　"

　　;

　　}

　　上面是一种简单的，不过也会造成一些问题，所以下面是一个麻烦（并非复杂）方法，但是很安全。

　　检查编译程序是否真实：

　　#

　　!perl

　　open

　　(FILE,"./print.pl");

　　@FILE=;

　　close

　　(FILE);

　　foreach

　　(@FILE)

　　{

　　if

　　($_

　　=~/程序编译后的部分代码/){

　　}else

　　{exit

　　;}

　　}

　　首先把程序进行bytecode编译，然后截取部分独特的其它程序没有的代码，放入其中，来检查引入程序是否正确合法。

　　你可以把bytecode的程序改名成.dll等，这样其它人就不知道是怎么回事啦。

　　结束语

　　Perl是一个强大的而且是最早的解析性程序语言，它的编译程序是B模块，大家可以详细常见，它有多种编译方式，都是采用反向编译（BackEnd）不同于反编译。所以经本上是不可能被反编译。我认为本文对所有的Perl程序员都有很大的帮助。

　　Perl还有很多其它方式的编译、加密方法，但是我觉得本文介绍的几种方式都是最好的（兼容性和运行效率），有一些人，把写的程序进行部分字符乱码或者是取消缩近的书写格式（把所有程序写在一行上），我认为这些方法是“愚蠢的”，所以建议大家不要花那么多时间去研究这些“无谓”的东西。

　　部分字符编码例子——原本：

　　#

　　!perl

　　sub

　　Hello

　　{

　　$hello=abc

　　;

　　print

　　$hello

　　;

　　}

　　&hello

　　;

　　部分字符编码例子——编码后

　　#

　　!perl

　　sub

　　adfjierei123489dkajd_dfefnkdj

　　{

　　$iernvmdnvcjnaldffgh=abc;

　　print

　　$iernvmdnvcjnaldffgh;

　　}

　　&adfjierei123489dkajd_dfefnkdj;

　　我希望通过本文促使Perl在国内的商业发展，也同样加快了Perl技术在国内的发展速度。但是我仍然希望大家可以写更多的公开源代码的程序出来，这样可以让初学者有较快的提高速度。

　　如果你有任何问题和想法都可以通过电子邮件([e-mail],

　　[e-mail],

　　[e-mail])或者ICQ：25856530

　　OICQ：66552联络我，其它资料可以到我的网站查询http: //www.tanshuai.net

　　http://www2.tanshuai.net　　
本文来自：Linux教程 -- http://doc.linuxpk.com/3089.html
如有不明白之处，欢迎参加社区讨论
上一条：Perl常规表达式 下一条：用Perl语言进行Socket编程