Perl語言全面編譯（三）

2019-11-18 17:23:51

字體：大中小

供稿：網(wǎng)友

第四節(jié)　PerlCC之Bytecode　編譯解析法　
Bytecode　是　PerlCC的另一編譯方法，必須在Perl5.6以后版本才有得支持。它的原理就好像java一樣，它會把Perl文件編譯成二進制令人費解的亂碼文件，它是采用類似md5這樣的反向加密編碼，幾乎不可能反編譯，和可執(zhí)行程序一樣復雜，但是它不可以直接執(zhí)行哦。想要執(zhí)行它，必須用Perl解析器，就好像　Java　編譯后必須有Java解析器，否則就無法執(zhí)行。我習慣成為編譯解析法，有的時候就說Just　Like　Java　PRogam!　
它的編譯方法也不難，但是竟然有很多人都不知道，我問過很多Perl前輩，他們也不大了解這一方法。而且很多我也從來見過誰寫過這樣的程序（難道我是國內(nèi)第一個知道的嗎？：）　
使用方法：perlcc　–b　<程序名>　　
編譯后它會輸出一個<程序名.plc>文件，你打開它看，定會吃驚。而且這種文件最小是180KB，比perlcc　C語言轉(zhuǎn)換編譯多了很多?！?br>它的好處在于，一處編譯到處使用。但是對于CGI就不大好處理。所以還是建議在各個平臺進行編譯。　
例如我ByteCode編譯上節(jié)的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　就可以執(zhí)行了?！?br>執(zhí)行注意事項：　
使用Bytecode　編譯后的文件，你一般需要更名回原來的文件名，否則容易在運行程序后出現(xiàn)警告信息“Attempt　to　free　unreferenced　scalar.”雖然它對程序沒有本質(zhì)影響，但是不美觀嘛，另一種解決方法就是使用　perl　–X　，關閉所有警告消息，警告不等同與錯誤，所以一般情況下，某些警告是不必要的?！?br>同樣ByteCode　編譯程序可以被引用(require)但是不能調(diào)用(use)，可以作為對象編程的對象。這是一個很靈活的東西，如果你希望你的模塊被大家使用，但是不想讓大家知道其中的操作，那么你就是用ByteCode，但是你的模塊將永遠不會被納入CPAN。這種方法就好像OCX控件?！?br>但是注意，但是使用某個模塊的時候，你必須保證使用該程序的機器上有這個模塊，最簡單的方法你可以把模塊一起復制使用，但是有些第三方程序模塊需要重新編譯，你如果不希望其它人操作模塊或者是看到引用的模塊，也可以使用Bytecode。但是注意，一定要用require方法調(diào)用加密模塊啊。這個世界總是這樣，總會有些遺憾的，這樣的話就不能用一些模塊和OOP?！?br>不知道你了解Python這個語言否？它Perl很相像，比Perl還有簡單呢。但是我認為很多東西都是抄Perl的，包括它得二進制編譯方法，就和Perl　Bytecode沒有任何區(qū)別。反正大家也都知道php也是抄了Perl不少東西?！?br>

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

第五節(jié)　OOP面向?qū)ο蟮某绦蛑疄榫幾g而設計　
面向?qū)ο蟮某绦蛟O計已經(jīng)不是什么新穎的話題和技術了。它在C 和Java中，尤為重要，哎，我覺得在寫大宗程序的時候會很有幫助，但是在小程序里面反而麻煩，還不如普通的函數(shù)使用。OOP大多數(shù)基本的Perl教程都有說明，所以這里也不多講“廢話”，主要講述OOP在編譯Perl程序中的應用以及Perl　OOP編寫的技巧，所以值得一看?！?br>前面說過在PerlCC編譯可執(zhí)行程序的時候，不要使用require函數(shù)，這是沒有錯的。但是有很多人寫require習慣了，而且不經(jīng)常接觸OOP模式，所以不習慣?！?br>其實使用use比require　好很多，還有很多人用require引入變量，這是大大錯誤，這是一種程序上編寫的失誤，所以建議以后大家不要用這種方式。編譯的時候也不要用這種放式？那么用什么方式？如果你是一個有經(jīng)驗的Perl程序員，你應該知道。使用OPEN函數(shù)，傳送變量值。這是編譯Perl程序的關鍵，一些定量（不變的量），最好放在程序內(nèi)部，變量以及客戶所需要設置的量使用我先前說的那種方式。具體實踐方法：　
Tanshuai　OpenConf　函數(shù)代碼：　

　sub　Open_Conf　{　

　　　　　　　　　open(FILE,　"$_[0]");#打開～調(diào)用函數(shù)的文件名　

　　　　　　　　　my　@Conf_Info　=　;#賦予～文件內(nèi)容到@Conf_Info數(shù)組中　

　　　　　　　　　close(FILE);#關閉~文件　

　　　　　my　$Conf_Infos　;定義~局部變量　

　　　　　　　　　foreach　$Conf_Infos　(@Conf_Info)　{#循環(huán)　

　　　　　　　　　　　　　　　　($name,　$value)　=　split(/=/,　$Conf_Infos);#區(qū)分～名稱和數(shù)值　

　　　　　　　　　　　　　　　　($value,　$dot)　=　split(/;/,　$value);#區(qū)分～結(jié)束符　

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

　　　　　　　　　　　　　　$CFG{$name}　=　$value;#復制～參數(shù)到散列變量　

　　　　　　　　　}　

　　　　　　　　　

}　
配置文件原形：　
Port='81';　

　
這樣就解決了配置變量的問題，我想這個函數(shù)對某些人一定會有很重要的意義?！?br>在這里OOP就是use　方式的調(diào)用?！?br>現(xiàn)在我們要著重討論OOP問題了，如果你不想把一大堆的程序代碼寫在一個文件中，那么使用OOP就最好了，原來是可以使用require，但這里不可一。OOP在Perl的好處顯而易見，首先可以編譯，即使不編譯，它也同require有明顯差異。　
OOP是在程序需要時調(diào)入，不需要時自動消失（通常說破壞對象）。require則不然，一旦調(diào)入一直存在，除非你使用exit　函數(shù)，所以在某些方面影響了程序的效率?！?br>例如我們要寫一個Shell程序，一共需要一下部分：輸入／輸出（I/O）、命令判斷（CMD）、System（系統(tǒng)操作）?！?br>我們平時也可以使用require，在編譯的時候就好了，同樣我們雖然可以按照子程序放在一個程序里面，但是在這里只是例子，但是在大宗商業(yè)項目中，這樣做是顯然費時費力的，會增加維護成本，無法聯(lián)合開發(fā)等多種弊端?！?br>我們把他們分為４個文件３個模塊一個主程序（編譯）：IO.pm、CMD.pm、System.pm、Shell.pl?！?br>首先要構(gòu)造對象：　
Tanshuai　對象構(gòu)造方法：　

package　<包名或者對象名>;　

my　IN;#定義～包（對象）內(nèi)部的散列　

sub　new　{#構(gòu)造函數(shù)名　

　　　　　　　　　my　$class　=　shift;　

　　　　　　　　　IN=　@_;#將調(diào)用對象的數(shù)值傳入散列IN中　

　　　　　　　　　my　$self={};　

　　　　　　　　　bless　$self,$class;　

　　　　　　　　　return　$self;　

}　
　
　
　
雖然上面的構(gòu)造有些不好的地方，但是它是通用對象的構(gòu)造方法，利于調(diào)試，如果你認為沒程序上的問題，就可以“封包”，適當修改變量傳引方式?！?br>這里的所有對象只有是一個單一函數(shù)，只包括：構(gòu)造對象和操作對象的兩個部分，這是一個簡單的對象引用，但是這種應用在實際的開發(fā)總是相當無畏的，在這里是為了方便教大家，所以不要什么程序都要對象。　
IO.pm：　
package　IO;　

my　IN;　

sub　new　{　

　　　　　　　　　my　$class　=　shift;　

　　　　　　　　　IN　=　@_;　

　　　　　　　　　my　$self={};　

　　　　　　　　　bless　$self,$class;　

　　　　　　　　　return　$self;　

}　

　　

sub　do　{#操作對象函數(shù)　

　　　　　　　　　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　{#操作對象函數(shù)　

my　$self=shift;　

　　my　$cmd　=　@_　;#傳入調(diào)用程序的命令　

while　(){#執(zhí)行循環(huán)，直到退出　

　　　　　　　　　if　($cmd　eq　'ver')　{　

　　　　　　　　　　　　　　　　　　　print　"Tanshuai　Command　Shell　v.1.0.0.001225b/n";　

　　　　　　　　　　　　　　　　　　　print　"(C)Copyright　Tanshuai.Com　1997-2001/n";　

　　　　　　　　　　　　　　　　　　　print　'EMAIL:tanshuai@BIGFOOT.COM';　

　　　　　　　　　　　　　　　　　　　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　{#操作對象函數(shù)　

　　　　　　　　　my　$self=shift;　

my　$cmd　=　@_　;　

system($cmd)　;#使用System函數(shù)操作系統(tǒng)，啟動dir命令　

　　

　　

1;　
　
以上各個模塊（對象）已經(jīng)建立完畢，我們現(xiàn)在只需要設計一個簡單的操作對象程序。這個時候你發(fā)現(xiàn)搞對象原始是如此簡單：）　
Shell.pl　主程序：　
use　IO;#調(diào)用~模塊（對象）　IO.pm　

use　CMD;#調(diào)用~模塊（對象）　CMD.pm　

　　

　　

my　$IO　=　IO::new;#創(chuàng)建對象~$IO　

my　$CMD　=　CMD::new;#創(chuàng)建對象~$CMD　

　　

　　

my　$GetInput　=　$IO->do;#從對象IO得到輸入信息；　

$CMD->do("$GetInput");#將得到的輸入信息發(fā)送給對象$CMD，進行分析操作?！?br>
exit　;　
　
　
　
這樣就完成了，你可能問為什么沒有使用對象System??？那是因為在對象CMD中繼承對象System，所以我們不需要在程序中使用System，要不然就累了?！?br>當你看到shell.pl程序時候，你有何感想？是不是覺得搞對象簡單了很多呢？給我的想法就是，以后程序員會越來越多，因為對象編程太簡單了，而我們呢？哎，我們就去做對象。以后編程和做對象的人可能要區(qū)分開來了。　
現(xiàn)在編譯shell.pl后，把這些對象刪除，看看能否使用？當然能，假如你使用require就出現(xiàn)無法執(zhí)行的致命錯誤?！?br>哎呀，好累了。我就要吐血了　#$@，還沒有吃晚飯呢。明日繼續(xù)吧?！　?br>這里告訴大家編譯Perl在較大或者較復雜的程序項目中，使用對象，會有很好的作用。你可能會問，用對象編譯出來的程序如此之大，是否會影響效率？肯定會，但是它并非明顯，就好像一個小小的15KB的程序，在運行的時候可能占用超過100MB的內(nèi)存。由于它會整個被內(nèi)存啟動，但是并不會有較大幅度的效率下降。如果還想使用類似require的方法，就要看最后一章了?！?br>

上一篇：Perl語言全面編譯（二）

下一篇：Perl語言全面編譯（一）

學習交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注