如果你曾經用Perl開發過應用程序，那你可能用過很多程序模塊。而且你還可能天天用到這些程序包的面向對象接口。但是，如果你像那些普通的Perl程序員一樣，在開發自己的代碼時都不試著使用面向對象技術。那麼，這篇文章可以幫助你成為一位習慣面向對象編程的Perl開發者。
OOP速成
面向對象編程（OOP）的基本思想非常簡單，說不定你可能已在有限場合下用過這種技術了。所謂對象不過是數據的集合，而這些數據又千絲萬縷地聯系在一起。不妨考慮下面的例子：假設某個哈希散列裝載的是說明球類特性的數據，這樣哈希散列的鍵（key）就可能牽扯到球的顏色、直徑以及制造材料等。而OOP的方法（method）只是處理每個球類數據的哈希散列子程序，這種子程序在操作每個球有關數據時會采用相應的定義字段。
什麼是哈希散列？
小型的哈希散列基本上不會占用什麼內存，對系統的性能不會有大的影響，你完全可以放心地用它們把對象數據歸攏到一起來。如果你不知道Per語言中的l哈希數組（也叫作聯合數組），那你可沒好好利用Perl。普通的數組結構按照數據的位置命名單個條目；而在哈希數組裡，你能給條目命名（叫作鍵：key）。其實不妨把哈希散列想象為一個小數據庫。給出一個名字就可以通過它查出一條記錄。Perl編程時在命令行上運行“perldoc perldata”可以查閱Perl數據類型和結構的有關文檔。
OOP不僅僅只把你的數據和子程序組織為互相關聯的集合，它還保證了對象及其方法實際連接的編譯和運行（runtime）時。那樣，你就不必直接調用哈希數組的ball_volume值了。OOP語言還進一步的提供了莫大的好處，OOP語言簡化了編程句法而且為聲明復雜的、對象-對象關系提供了大量的其它特性。
在最簡單的情況下，每個對象都會告訴Perl它是什麼種類的對象，這樣，只有知道如何安全地操作該對象的子程序才會被調用。開發人員則只需使用方法的名字即可。如果你調用book對象的volume值，它會告訴你目前該數值該圖書數據中的位置而不會告訴你它真正占用了多少體積空間。
習慣 #1 ：使用哈希散列
請把相關的數據通過小哈希散列收集起來。以前你可能創建過諸如$red、$green以及$blue之類的一整套變量。但不久你就認識到你需要2或3個集合把這些變量修改為$a_red、$b_red、$c_red來區別不同對象的屬性，對綠色（green）和藍色（blue）變量也同樣如此。所以請把這9個變量修改為% a_color、% b_color和%c_color的3個哈希散列，而把r、g和b選作參數。
在CPAN內，幾乎每一個模塊都封裝成了哈希散列。把成組關聯的數據包含在哈希散列內是一種優秀的面向對象編程技術。這樣做的話你聲明的變量就少多了，數據也組織得更為合理。同時還提高了可靠性，因為諸如$boy{height}之類的變量實際上自身就包含了明顯的含義。清單A即是一例。
習慣 #2 ：使用子程序
下一個好習慣是使用子程序來圍繞那些數據集合組織你的代碼。盡量地把哈希散列上成塊代碼分組到子程序裡。保證你傳遞的是集合而非單個的值。調用invert_new ( \%color )顯然比調用invert_old (\$reda , \$greena , \$bluea );更合理。至少你不需要記得參數的順序。
子程序把代碼組織得更有邏輯了；程序宛如從子程序文件的頭頂略過而底下的工作全然不知。可以把所有的變量都傳遞給子程序，重用代碼就輕松多了，新的程序使用不同的全局變量，而其中某些全局變量還用於其他完全不同的用途。至少小型的子程序在調試的時候也方便多了，在這種情況下，所有你需要了解的代碼剛好占一屏（參看程序清單B）。看，這有多方便！
習慣 #3 ：重用
第3個良好的OOP習慣是把子程序收集起來放進一個單獨的文件供以後再次使用他們。你還應該精制它們使之能用於一般用途。此外還應該在多個腳本中使用這些子程序而且對它們不斷地進行調試。現在你不妨把采用某個特定哈希散列的所有的子程序都組合進一個文件，這就算走出了重用代碼的第1步。
采取以上的做法只需把子程序放進某個文件，再使用的時候采用“require”關鍵詞即可。已經不用的子程序就別這麼做了；那純粹是浪費時間。保證它們能工作就行了。清單C是一個比較不錯的例子。
習慣 #4 ：保護哈希散列
保護你的哈希散列。不要直接創建哈希，最好是對用來創建哈希的數據進行再次檢查之後添加一個返回哈希散列索引的子程序。然後，再添加一些微小的子程序返回哈希散列中的各個值以便安全地修改它們。這些代碼示例如清單D所示。
這樣處理小子程序，可以讓你在改變規則的時候可以更容易找出錯誤所在。所以，不要在程序中編寫那些修改哈希散列的代碼，你應該把這些代碼移到函數庫中去。
益處
以上這些建議歸根結底就是一句話：哈希散列把數據關聯了起來，編寫采用整個哈希散列的子程序，把聯系某一哈希散列的子程序收集到一個簡單的庫內，保護你的哈希散列庫。這些小技巧幾乎沒有增加什麼工作量但卻具有極好的組織性。但這些工作在你創建面向對象的模塊時占了90%以上的比重。
如果你保證哈希索引首先發送給了每個子程序。而且你只通過庫函數同哈希散列內部打交道，那麼你基本上只需要為你的模塊起個名字即可。這樣就讓 Perl 知道它應該把你的哈希散列當作一個對象。你的代碼庫要變成模塊甚至很可能不需要20行代碼。
