📄 01_4_12_2.asp.html
字号:
<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<TITLE>计算机世界网-Perl 语言全面编译(四)</TITLE></HEAD>
<style>
.a14{font-size:14px;text-indent:25px;line-height:20px}
.f{font-size:18px;color=#0f3ccd}
img{border:0px;}
td,p,input{font-fammily:verdana,宋体;font-size:12px;}
A:link {text-decoration:none;color:black}
A:visited {text-decoration:none;color:#80006f}
A:hover {text-decoration:underline;color:black}
</style>
<center>
<BODY topmargin=2 leftmargin=0>
<style>
.v12{font-size:10pt;color:"#ffffff";FONT-WEIGHT: bold}
.v14{font-size:14px;text-indent:25px;line-height:20px}
img{border:0px;}
td,p,input,select{font-fammily:verdana,宋体;font-size:12px;}
A:link {text-decoration:none;color:black}
A:visited {text-decoration:none;color:#80006f}
A:hover {text-decoration:underline;color:black}
</style>
<style>
.v13{font-size:10pt;color:"#ffffff";FONT-WEIGHT: bold}
.v12{font-size:13px;color:"#4C029C";FONT-WEIGHT: bold}
.v14{font-size:14px;text-indent:25px;line-height:20px}
img{border:0px;}
td,p,input,select{font-fammily:verdana,宋体;font-size:12px;}
A:link {text-decoration:none;color:black}
A:visited {text-decoration:none;color:#80006f}
A:hover {text-decoration:underline;color:black}
</style>
<!--头-->
<table align=center cellpadding="0" cellspacing="0" border="0" width="767">
<tr><td valign=bottom>
<table cellpadding="0" cellspacing="0" border=0>
<tr><td valign=top><img src="ccwlogo3.gif"></td></tr>
<tr><td height="27" valign=top><img src="knowledj.gif" width="207" height="27"></td></tr>
</table></td>
<td valign=bottom width=556 bgcolor="#4c029c" height=96>
<table cellpadding="0" cellspacing="0" border=0 width=556 bgcolor="#4c029c" height=96>
<tr><td height=25 valign=bottom bgcolor="#ffffff" colspan=2 ><img src="top00003.gif" usemap="#F"></td></tr>
<tr valign=middle >
<td align=center valign=middle height="60" align=center>
<!-- <a href="/search/" target=_blank><img src="/img2/esearch.GIF" border=0 width=468 height=60></a> --><a href="http://www.ccw.com.cn/html/search/thememail/" target=_blank><img src="topbannh.gif" border=0 width=468 height=60></a>
</td>
<td align=center width=15%>
<table width=95%>
<tr><td><a href="mailto:center@ccw.com.cn?subject=%E6%88%91%E8%A6%81%E6%8A%95%E7%A8%BF:" target=_blank><font class=v13>我要投稿</a><br><a href="mailto:center@ccw.com.cn?subject=%E7%BC%96%E8%AF%BB%E5%BE%80%E6%9D%A5"><font class=v13>编读往来</a><br><a href="javascript:AddBookMark('计算机世界网首页')"><font class=v13>加入收藏</a></font></td></tr>
</table>
</td>
</tr>
<tr><td bgcolor="#ffffff" height=1 colspan=2 ></td></tr>
<tr><td bgcolor="#b4aafc" height=2 colspan=2 ></td></tr></table>
<map name="F">
<area href="http://www.ccw.com.cn/" shape="rect" coords="29, 3, 61, 18" target=_blank>
<area href="http://www.ccw.com.cn/news1/" shape="rect" coords="72, 3, 143, 18" target=_blank>
<area href="http://www.ccw.com.cn/center/" shape="rect" coords="155, 2, 216, 18" target=_blank>
<area href="http://www.ccw.com.cn/work/" shape="rect" coords="225, 2, 299, 18" target=_blank>
<area href="http://www.ccw.com.cn/search/" shape="rect" coords="310, 3, 364, 19" target=_blank>
<area href="http://www3.ccw.com.cn/" shape="rect" coords="372, 2, 412, 19" target=_blank>
<area href="http://www2.ccw.com.cn/" shape="rect" coords="424, 2, 550, 18" target=_blank></map>
</td></tr>
<tr><td colspan=2 bgcolor="#b4aafc">
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr>
<td width=26% align=center><font class=v12>【2003年2月7日】 </font></td>
<td CLASS=V12> <a href="http://www.ccw.com.cn/center/topic.asp">专 题</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/tech.asp">技 术</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/prod.asp">产 品</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/app.asp">应 用</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/net.asp">网 络</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/prog.asp">编 程</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/skill.asp">技 巧</a> </td>
</tr>
</table>
</td></tr>
</table>
<table align=center width=680>
<tr><td align=center><br><h2><font color='#0f3ccd'>Perl 语言全面编译(四)</font></h2>
<b><a href="mailto:tanshuai@BIGFOOT.COM"><font color="#0000FF">天水-S.Tanshuai</font></a></b>
<br><hr size=1 width=660 color=#f46240></td></tr></table><br>
<table align=center width=620><tr><td class=a14><b><font size="4">第四节 PerlCC之Bytecode 编译解析法</font></b></td></tr></table><table align=center width=620><tr><td class=a14>
Bytecode 是 PerlCC的另一编译方法,必须在Perl5.6以后版本才有得支持。它的原理就好像Java一样,它会把Perl文件编译成二进制令人费解的乱码文件,它是采用类似MD5这样的反向加密编码,几乎不可能反编译,和可执行程序一样复杂,但是它不可以直接执行哦。想要执行它,必须用Perl解析器,就好像 Java 编译后必须有Java解析器,否则就无法执行。我习惯成为编译解析法,有的时候就说Just Like Java Progam!</td></tr></table><table align=center width=620><tr><td class=a14>
它的编译方法也不难,但是竟然有很多人都不知道,我问过很多Perl前辈,他们也不大了解这一方法。而且很多我也从来见过谁写过这样的程序(难道我是国内第一个知道的吗?:)</td></tr></table><table align=center width=620><tr><td class=a14>
使用方法:perlcc –b <程序名> </td></tr></table><table align=center width=620><tr><td class=a14>
编译后它会输出一个<程序名.plc>文件,你打开它看,定会吃惊。而且这种文件最小是180KB,比perlcc C语言转换编译多了很多。</td></tr></table><table align=center width=620><tr><td class=a14>
它的好处在于,一处编译到处使用。但是对于CGI就不大好处理。所以还是建议在各个平台进行编译。</td></tr></table><table align=center width=620><tr><td class=a14>
例如我ByteCode编译上节的abc.pl程序文件:</td></tr></table><table align=center width=620><tr><td class=a14>
输入:</td></tr></table><table align=center width=620><tr><td class=a14>
perlcc –b abc.pl</td></tr></table><table align=center width=620><tr><td class=a14 bgcolor="#C0C0C0">
Perlcc –B 输出</td></tr></table><table align=center width=620><tr><td class=a14>
----------------------------------------------------------------------------</td></tr></table><table align=center width=620><tr><td class=a14>
Compiling abc.pl:</td></tr></table><table align=center width=620><tr><td class=a14>
----------------------------------------------------------------------------</td></tr></table><table align=center width=620><tr><td class=a14>
Making Bytecode(abc.plc) for abc.pl!</td></tr></table><table align=center width=620><tr><td class=a14>
C:\perl\5.6.0\bin\MSWin32-x86\perl.exe -IC:/perl/5.6.0/lib/MSWin32-x86 -IC:/perl</td></tr></table><table align=center width=620><tr><td class=a14>
/5.6.0/lib -IC:/perl/site/5.6.0/lib/MSWin32-x86 -IC:/perl/site/5.6.0/lib -I. -MB</td></tr></table><table align=center width=620><tr><td class=a14>
::Stash -c abc.pl</td></tr></table><table align=center width=620><tr><td class=a14>
C:\perl\5.6.0\bin\MSWin32-x86\perl.exe -IC:/perl/5.6.0/lib/MSWin32-x86 -IC:/perl</td></tr></table><table align=center width=620><tr><td class=a14>
/5.6.0/lib -IC:/perl/site/5.6.0/lib/MSWin32-x86 -IC:/perl/site/5.6.0/lib -I. -MO</td></tr></table><table align=center width=620><tr><td class=a14>
=Bytecode,-umain,-uattributes,-uDB,-uWin32 abc.pl</td></tr></table><table align=center width=620><tr><td class=a14>
abc.pl syntax OK</td></tr></table><table align=center width=620><tr><td class=a14>
好了,然后perl abc.plc 就可以执行了。</td></tr></table><table align=center width=620><tr><td class=a14>
执行注意事项:</td></tr></table><table align=center width=620><tr><td class=a14>
使用Bytecode 编译后的文件,你一般需要更名回原来的文件名,否则容易在运行程序后出现警告信息“Attempt to free unreferenced scalar.”虽然它对程序没有本质影响,但是不美观嘛,另一种解决方法就是使用 perl –X ,关闭所有警告消息,警告不等同与错误,所以一般情况下,某些警告是不必要的。</td></tr></table><table align=center width=620><tr><td class=a14>
同样ByteCode 编译程序可以被引用(require)但是不能调用(use),可以作为对象编程的对象。这是一个很灵活的东西,如果你希望你的模块被大家使用,但是不想让大家知道其中的操作,那么你就是用ByteCode,但是你的模块将永远不会被纳入CPAN。这种方法就好像OCX控件。</td></tr></table><table align=center width=620><tr><td class=a14>
但是注意,但是使用某个模块的时候,你必须保证使用该程序的机器上有这个模块,最简单的方法你可以把模块一起复制使用,但是有些第三方程序模块需要重新编译,你如果不希望其它人操作模块或者是看到引用的模块,也可以使用Bytecode。但是注意,一定要用require方法调用加密模块啊。这个世界总是这样,总会有些遗憾的,这样的话就不能用一些模块和OOP。</td></tr></table><table align=center width=620><tr><td class=a14>
不知道你了解Python这个语言否?它Perl很相像,比Perl还有简单呢。但是我认为很多东西都是抄Perl的,包括它得二进制编译方法,就和Perl Bytecode没有任何区别。反正大家也都知道PHP也是抄了Perl不少东西。</td></tr>
<tr><td class=a14>
<p align="right"><a href="http://www.ccw.com.cn/htm/app/aprog/01_4_11_6.asp"><font color="#0000ff">上一讲
>></font></a> <a href="http://www.ccw.com.cn/htm/app/aprog/01_4_12_3.asp"><font color="#0000FF"><< 下一讲</font></a></td></tr>
</table><br>
<table align=center width=620><tr><td align=right>(网页编辑:<a href='mailto:app@ccw.com.cn'>徐向阳</a>)</td></tr></table><br>
<br><table align=center width=620><tr><td class=a14>相关文章</td></tr><tr><td><ul>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/01_4_11_6.asp'>Perl 语言全面编译(三)</a></li>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/01_4_11_5.asp'>Perl 语言全面编译(二)</a></li>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/01_3_27_4.asp'>Perl 语言全面编译</a></li>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/001228_4.asp'>也谈基于Web的Form多响应技术</a></li>
</ul></td></tr></table>
<table align=center width=620><tr><td align=right>
<form method=post action='/pub/subMail.asp' onsubmit='JavaScript: return chkField(this)'>
<INPUT type='hidden' name='rec' value='10372'>
您的姓名:<INPUT type="text" name=myName size=10>
您朋友的E-mail:<INPUT type="text" name=friendMail size=10>
<INPUT type="submit" value="推荐给好友">
</form>
</td></tr>
<tr><td align=right>
<b>[<a href="javascript:window.close()">关闭窗口</a>]</b>
</td></tr>
</table>
<script language="javascript">function chkField(fmObj)
{if (!fmObj.friendMail.value){
alert("请输入您朋友的E-mail!");
fmObj.friendMail.focus();
return false;
}
return true;
}
</script>
<table align=center width=680>
<tr><td><hr size=1 width=660 color=#f46240></td></tr>
</table><br>
<p align=center>Copyright(C) ccw.com.cn,All rights reserved</p>
<p align=center><b>中国计算机世界出版服务公司版权所有</b></p><!-- This document saved from http://www.ccw.com.cn/htm/app/aprog/01_4_12_2.asp -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -