a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Perl > 正文

Perl語言全面編譯(三)

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

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

第五節 OOP面向對象的程序之為編譯而設計 
面向對象的程序設計已經不是什么新穎的話題和技術了。它在C 和Java中,尤為重要,哎,我覺得在寫大宗程序的時候會很有幫助,但是在小程序里面反而麻煩,還不如普通的函數使用。OOP大多數基本的Perl教程都有說明,所以這里也不多講“廢話”,主要講述OOP在編譯Perl程序中的應用以及Perl OOP編寫的技巧,所以值得一看?!?br>前面說過在PerlCC編譯可執行程序的時候,不要使用require函數,這是沒有錯的。但是有很多人寫require習慣了,而且不經常接觸OOP模式,所以不習慣?!?br>其實使用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'; 

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

         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,進行分析操作?!?br>
exit ; 
 
 
 
這樣就完成了,你可能問為什么沒有使用對象System?。磕鞘且驗樵趯ο驝MD中繼承對象System,所以我們不需要在程序中使用System,要不然就累了?!?br>當你看到shell.pl程序時候,你有何感想?是不是覺得搞對象簡單了很多呢?給我的想法就是,以后程序員會越來越多,因為對象編程太簡單了,而我們呢?哎,我們就去做對象。以后編程和做對象的人可能要區分開來了。 
現在編譯shell.pl后,把這些對象刪除,看看能否使用?當然能,假如你使用require就出現無法執行的致命錯誤?!?br>哎呀,好累了。我就要吐血了 #$@,還沒有吃晚飯呢。明日繼續吧。  
這里告訴大家編譯Perl在較大或者較復雜的程序項目中,使用對象,會有很好的作用。你可能會問,用對象編譯出來的程序如此之大,是否會影響效率?肯定會,但是它并非明顯,就好像一個小小的15KB的程序,在運行的時候可能占用超過100MB的內存。由于它會整個被內存啟動,但是并不會有較大幅度的效率下降。如果還想使用類似require的方法,就要看最后一章了?!?br>
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 久久久精品一区二区三区 | 久久国产视频一区二区 | 亚洲美女一区二区三区 | 精品久久久久一区二区国产 | av电影网在线观看 | 亚洲永久| 午夜在线观看免费 | 美女黄网站视频免费 | 国产精品美女久久久久aⅴ国产馆 | 欧洲视频一区二区 | 成人亚洲精品久久久久软件 | 超碰在线一区二区三区 | 欧美一区二区视频免费观看 | 欧美午夜精品理论片a级按摩 | av片免费 | 在线视频这里只有精品 | 日本久久久一区二区三区 | 日操视频 | 国产精品成人品 | 日韩av在线免费播放 | 麻豆高清免费国产一区 | 中文视频在线 | 免费视频爱爱太爽了 | 国产一二三区在线播放 | 亚洲日本乱码一区二区三区 | 99在线精品视频 | 国产亚洲综合视频 | 精品国产一区二区三区免费 | 另类五月天 | 日本一区二区高清视频 | 天堂精品一区二区三区 | 欧美激情在线精品一区二区三区 | 国产午夜精品在线 | 国产成人精品久久 | 亚洲一区 日韩精品 中文字幕 | 国产欧美精品一区二区色综合朱莉 | 最新中文字幕 | 韩国精品一区二区三区 | 国产精品一区二区三 | 国产精品污www一区二区三区 | 欧美一区二区在线看 |