日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯(lián)網營銷解決方案
三大技巧實現(xiàn)Perl性能優(yōu)化

本文和大家重點討論一下Perl性能優(yōu)化，Perl是強大的語言，是強大的工具，也是一道非常有味道的菜:-)利用很多perl的特性,可以實現(xiàn)一些非常有趣而實用的功能。

Perl性能優(yōu)化

Perl是強大的語言，是強大的工具，也是一道非常有味道的菜:-)利用很多perl的特性,可以實現(xiàn)一些非常有趣而實用的功能。

利用Perl開發(fā)一些服務應用時，有時會遇到Perl性能或資源占用的問題，如何解決呢？以下是自己過去開發(fā)實踐的一些經驗，幾個主要的技巧分別是：

◆巧用require裝載模塊
◆使用系統(tǒng)函數及XS化模塊
◆自寫低開銷模塊
◆優(yōu)化正則表達式
◆善用BSDsocket

巧用require裝載模塊

為避免程序一啟動就加載大量模塊，降低啟動速度，可以在必要的時候再裝載模塊，這時候就是require大派用場的時候了。
如：

 
 
 
    
  
  
  
  1. #!/usr/bin/perl-w  
    2.   
  
  
  2. usepre_load_module;  
    3.   
  
  
  3.  
    4.   
  
  
  4. #Initializesomething  
    5.   
  
  
  5. init_args();  
    6.   
  
  
  6.  
    7.   
  
  
  7. #if$use_this_moduleistrue,loadtheModule  
    8.   
  
  
  8. if($use_this_module){  
    9.   
  
  
  9. requireModule;  
    10.   
  
  
  10. }  
    11.

上述代碼中，如果變量$use_this_module設置了，那么才加載Module，如果沒設置則不需要加載，實現(xiàn)了：useondemand的功能。在CGI應用程序中，這相當有用，如果每次請求（fork）都加載大量無用模塊的話，響應速度會有所降低，而在特定場合才加載一些模塊將加塊啟動、解析的速度。

再看一個例子：

 
 
 
    
  
  
  
  1. #!/usr/bin/perl  
    2.   
  
  
  2. my$pid=forkordie"can'tfork:$!\n";  
    3.   
  
  
  3. if($pid){  
    4.   
  
  
  4. print"i'mfather\n";  
    5.   
  
  
  5. sleep;  
    6.   
  
  
  6. }else{  
    7.   
  
  
  7. print"i'mchild\n":  
    8.   
  
  
  8. requireIO::Socket;  
    9.   
  
  
  9. sleep;  
    10.   
  
  
  10. }  
    11.

上述代碼中，如果在程序一開始就用use來載入IO::Socket模塊，那么子/父進程都加載了該模塊，通過top命令發(fā)現(xiàn)子父進程大小都是3.07MB；如果只在子進程里加載，則只在子進程里有效，內存的消耗將降低，top命令發(fā)現(xiàn)子進程3.04MB，父進程變?yōu)?.4MB。

使用系統(tǒng)函數及XS化模塊

Perl內建的系統(tǒng)函數及用c編寫的perlXS擴展模塊的速度和效率都比純perl的實現(xiàn)要好得多。在Perl性能要求較高的場合（如開發(fā)ApplicationServer，NetworkServer等），可以考慮使用這些內建函數或XS化模塊。
如Socket就比IO::Socket的內存消耗要低，XS編寫的Data::Dumper就比純Perl的Data::Dumper要快4-5倍。
此外，一些簡單的任務并沒必要使用Perl模塊，如獲得主機IP地址就大可不必載入龐大的Net::DNS而只是使用gethostbyname()系統(tǒng)函數即可。

以下是一些常用的替代方案以獲得更快的速度，更好的效率：

用sys*系列函數等替代open/seek/tell/<>等標準IO操作
用Socket代替IO::Socket以獲得更低開銷和內存占用
用get*by*系列函數代替Net::DNS
用index/substr等代替部分低效正則表達式
用select(3參數版本)代替IO::Handle部分功能.......

自寫低開銷模塊

通常我們使用一些Perl模塊時，只使用了其中很小一部分的功能，可是卻不得不載入整個模塊，甚至要載入其他不相關的模塊。因此往往使整個程序非常臃腫龐大。
著名的web管理軟件webmin的miniserv（一個簡化的http服務端)功能強大，還支持SSL，但資源占用卻出奇的少，只有大約5.6MB的大??！這是為什么呢？因為miniserver只使用了2個Perl系統(tǒng)模塊（Socket及POSIX），沒有載入其他的模塊。Perl性能優(yōu)化時一些本需要其他perl模塊的功能，均由web-lib.pl等用系統(tǒng)函數編寫代替。

例如以下是一個獲得A記錄的高速函數get_mx()，它不依賴任何模塊，速度非常快。

 
 
 
    
  
  
  
  1. subget_mx{  
    2.   
  
  
  2. my@info=gethostbynameshift;  
    3.   
  
  
  3. my@addr=splice(@info,4);  
    4.   
  
  
  4. my@rt;  
    5.   
  
  
  5. foreach(@addr){  
    6.   
  
  
  6. push@rt,join('.',unpack('C4',$_));  
    7.   
  
  
  7. }  
    8.   
  
  
  8. \@rt;  
    9.   
  
  
  9. }  
    10.   
  
  
  10.  
    11.

 另一個例子，對于標準的IO::Handle對象，可以使用$obj->autoflush(1);來設置緩沖的特性，我們通過使用系統(tǒng)函數select()來獲得同樣的能力，而無需要載入IO::Handle，代碼如下：

 
 
 
    
  
  
  
  1. subautoflush{  
    2.   
  
  
  2. my$io=$_[0];  
    3.   
  
  
  3. select((select($io),$|=1)[0]);  
    4.   
  
  
  4. } 
    5.

使用方法很簡單，例如要對IO::Socket::INET類型的$sock設置為立即沖刷，則autoflush($sock)即可。


文章標題：三大技巧實現(xiàn)Perl性能優(yōu)化
當前URL：http://m.5511xx.com/article/cdhigic.html