第九章 管理真實的程序(四) -模塊

模塊

之前我們介紹了如何使用函數(shù)、類和數(shù)據(jù)結構來組織代碼裹虫,接下來要介紹的是另一個用來組織代碼和擴展代碼的機制--模塊。一個模塊就是一個文件包,可以用use或require 來加載壹士。模塊必須要是有效的Perl代碼。模塊必須以一個真值結尾偿警,這樣Perl解析器才能知道模塊是否被成功的加載和編譯躏救。

當你加載一個模塊時,Perl以雙冒號分割模塊名轉換成文件路徑螟蒸。例如盒使,use StrangeMonkey::Persistence;Perl就會在@INC中查找每一個叫StrangeMonkey的目錄,并且在每一個叫StrangeMonkey的目錄中查找一個名字為Persistence.pm的文件(實際上就是找StrangeMonkey/Persistence.pm文件)七嫌;use StrangeMonkey::UI::Mobile; Perl就會在@INC中查找StrangeMonkey/UI/Mobile.pm文件少办。

使用模塊來組織代碼

Perl并不強制要求你使用模塊、包或名字空間诵原,你可以將所有代碼都放入單個.pl文件或多個.pl文件英妓,可以選擇最舒服的方式靈活地來開發(fā)、管理皮假、部署你的代碼鞋拟,當然這其中的風險和收益就取決于你自己的經(jīng)驗水平了。

盡管如此惹资,我們建議你在代碼量超過幾百行后就使用模塊來組織代碼:

  • 模塊會強制在系統(tǒng)的不同實體之間進行邏輯分離贺纲。
  • 無論你是否使用OO,模塊都能提供API邊界褪测。
  • 模塊提倡以一種自然的方式來組織源代碼猴誊。
  • Perl生態(tài)系統(tǒng)中有很多工具專門用于創(chuàng)建潦刃、組織、部署和分發(fā)模塊懈叹。
  • 模塊提供了代碼重用的機制乖杠。

即使你不使用面向對象,模塊也能幫助對代碼進行更好地封裝澄成。

****使用和導入****
當你使用use加載一個模塊時胧洒,Perl就會從磁盤中加載文件,然后調(diào)用它的import()方法(如果有參數(shù)的話還會傳遞參數(shù))墨状。按照慣例卫漫,一個模塊的import()方法,會將一系列名字肾砂、導出函數(shù)和其他符號標記導入到自己的名字空間列赎。當然這只是一個約定,模塊也有可能拒絕提供import()函數(shù)或者import()函數(shù)執(zhí)行的是其他行為镐确,如編譯指示strict 包吝,作用是在調(diào)用者的詞法范圍內(nèi)改變行為而不是導出符號:

use strict;
# ... calls strict->import()

use CGI ':standard';
# ... calls CGI->import( ':standard' )

use feature qw( say switch );
# ... calls feature->import( qw( say switch ) )

關鍵字no會調(diào)用模塊的unimport()方法(有參數(shù)還會傳遞參數(shù))。最常見的就是搭配import() 來改變程序的行為:

use strict;
# no symbolic references or barewords
# variable declaration required

{
no strict 'refs';
# symbolic references allowed
# strict 'subs' and 'vars' still in effect
}

use和no都會在編譯的時候就生效:

use Module::Name qw( list of arguments );

#等同于
BEGIN
{
require 'Module/Name.pm';
Module::Name->import( qw( list of arguments ) );
}

類似的:

no Module::Name qw( list of arguments );

#等同于:
BEGIN
{
require 'Module/Name.pm';
Module::Name->unimport(qw( list of arguments ));
}

都是可選的源葫!
如果模塊沒有import()或unimport()函數(shù)Perl也不會報錯诗越。

你也可以直接調(diào)用import()和unimport()函數(shù),盡管在BEGIN塊之外它們沒有什么作用息堂;編譯結束后 import()和unimport()就沒什么用了掺喻。

use和require都是區(qū)分大小寫的,所以use strict和use Strict是不一樣的:一個是加載strict.pm储矩,一個是加載Strict.pm。但你的操作系統(tǒng)或文件系統(tǒng)可能不會區(qū)分大小寫褂乍,對于一個不區(qū)分大小寫的文件系統(tǒng)持隧,use strict在找不到strict.pm文件時Perl會去加載Strict.pm,但是當你嘗試調(diào)用Strict->import()時卻什么都不會發(fā)生逃片,所以謹慎對待大小寫總是好的屡拨。

****導出****
一個模塊可以通過導出自己的全局包符號,這樣別的包就可以直接或間接調(diào)用import()來使用這些符號褥实。

核心模塊Exporter就是導出符號的標準途徑呀狼。Exporter依賴2個全局變量@EXPORT_OK和@EXPORT,它們包含了一系列要導出的符號损离。

模塊StrangeMonkey::Utilitie提供了幾個單獨的函數(shù):

package StrangeMonkey::Utilities;

use Exporter 'import';

our @EXPORT_OK = qw( round translate screech );
...

任何其他的代碼都可以使用這個模塊和導入這些函數(shù)(round哥艇,translate,screech)僻澎。你也可以導出變量:

push @EXPORT_OK, qw( $spider $saki $squirrel );

也可以使用@EXPORT代替@EXPORT_OK來實現(xiàn)類似的功能:

our @EXPORT = qw( monkey_dance monkey_sleep );

這樣在任何地方使用use StrangeMonkey::Utilities都會導入這些函數(shù)貌踏。要明白的是如果指定的要導入的符號十饥,那就不會導入其他的符號;你只會得到你想要的祖乳。若要加載一個模塊逗堵,但是不想導入任何符號,那就使用明確的空列表:

# make the module available, but import() nothing
use StrangeMonkey::Utilities ();

不使用導入列表眷昆,也總是可以通過使用完全限定名來調(diào)用函數(shù)的(這你應該知道的吧):

StrangeMonkey::Utilities::screech();

簡化導出
CPAN模塊Sub::Exporter提供了更友好的接口來導出函數(shù)蜒秤。
CPAN模塊Moose::Exporter用于基于Moose的系統(tǒng)。

最后編輯于
?著作權歸作者所有,轉載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末亚斋,一起剝皮案震驚了整個濱河市作媚,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌伞访,老刑警劉巖掂骏,帶你破解...
    沈念sama閱讀 219,427評論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異厚掷,居然都是意外死亡弟灼,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,551評論 3 395
  • 文/潘曉璐 我一進店門冒黑,熙熙樓的掌柜王于貴愁眉苦臉地迎上來田绑,“玉大人,你說我怎么就攤上這事抡爹⊙谇” “怎么了?”我有些...
    開封第一講書人閱讀 165,747評論 0 356
  • 文/不壞的土叔 我叫張陵冬竟,是天一觀的道長欧穴。 經(jīng)常有香客問我,道長泵殴,這世上最難降的妖魔是什么涮帘? 我笑而不...
    開封第一講書人閱讀 58,939評論 1 295
  • 正文 為了忘掉前任,我火速辦了婚禮笑诅,結果婚禮上调缨,老公的妹妹穿的比我還像新娘。我一直安慰自己吆你,他們只是感情好弦叶,可當我...
    茶點故事閱讀 67,955評論 6 392
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著妇多,像睡著了一般伤哺。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,737評論 1 305
  • 那天默责,我揣著相機與錄音贬循,去河邊找鬼。 笑死桃序,一個胖子當著我的面吹牛杖虾,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播媒熊,決...
    沈念sama閱讀 40,448評論 3 420
  • 文/蒼蘭香墨 我猛地睜開眼奇适,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了芦鳍?” 一聲冷哼從身側響起嚷往,我...
    開封第一講書人閱讀 39,352評論 0 276
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎柠衅,沒想到半個月后皮仁,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,834評論 1 317
  • 正文 獨居荒郊野嶺守林人離奇死亡菲宴,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,992評論 3 338
  • 正文 我和宋清朗相戀三年贷祈,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片喝峦。...
    茶點故事閱讀 40,133評論 1 351
  • 序言:一個原本活蹦亂跳的男人離奇死亡势誊,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出谣蠢,到底是詐尸還是另有隱情粟耻,我是刑警寧澤,帶...
    沈念sama閱讀 35,815評論 5 346
  • 正文 年R本政府宣布眉踱,位于F島的核電站挤忙,受9級特大地震影響,放射性物質發(fā)生泄漏谈喳。R本人自食惡果不足惜饭玲,卻給世界環(huán)境...
    茶點故事閱讀 41,477評論 3 331
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望叁执。 院中可真熱鬧,春花似錦矮冬、人聲如沸谈宛。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,022評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽吆录。三九已至,卻和暖如春琼牧,著一層夾襖步出監(jiān)牢的瞬間恢筝,已是汗流浹背哀卫。 一陣腳步聲響...
    開封第一講書人閱讀 33,147評論 1 272
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留撬槽,地道東北人此改。 一個月前我還...
    沈念sama閱讀 48,398評論 3 373
  • 正文 我出身青樓,卻偏偏與公主長得像侄柔,于是被迫代替她去往敵國和親共啃。 傳聞我的和親對象是個殘疾皇子,可洞房花燭夜當晚...
    茶點故事閱讀 45,077評論 2 355

推薦閱讀更多精彩內(nèi)容