Perl物件導向編程

標籤：style   color   使用   os   檔案   ar   line   new   size   

Perl class is a Perl package

首先，建立一個名為Cocoa.pm的包檔案(副檔名pm是包的預設副檔名，意為PerlModule)。一個模組就是一個包，一個包就是一個類。在做其它事之前，先加入“1;”這樣一行，當你增加其它行時，記住保留“1;”為最後一行。這是Perl包的必需條件，否則該包就不會被Perl處理。

其次，我們往包裡添加方法使之成為一個類。第一個需添加的方法是new()，它是建立對象時必須被調用的，new()方法是對象的建構函式。

建構函式是類的子程式，它返回與類名相關的一個引用

package person;use strict;sub new{    my $class = shift();    print ("Class=$class\n");    my $self ={};      \\建立一個不含鍵/值的雜湊表的引用；    $self->{"name"}=shift();    $self->{"sex"}=shift();    bless $self,$class; \\將該引用和類名關聯,類名是可選項    return $self;    \\傳回值指向該引用}

從new()返回後，$self引用被銷毀，但是調用函數儲存了對該雜湊表 的引用，所以該雜湊表的引用數不會為零。從而使Perl在記憶體中儲存該雜湊表

#!/usr/bin/perl  push(@INC,‘pwd‘);  use person;   my $cup = new person("Tom","man");

注釋

第二行\\將目前的目錄加到路徑尋找列表@INC中，

或者push(@INC,dirname(__FILE__)) 使用到File::Basename模組

第三行\\告訴Perl在@INC路徑尋找檔案person.pm並包含到解析的源檔案拷貝中。

第四行\\或者my $cup = person->new("Tom","man"); person::new("Tom","man");

注意：

一定要在建構函式中初始設定變數；

一定要用my函數在方法中建立變數；

一定不要在方法中使用local，除非真的想把變數傳遞給其他子程式；

一定不要在類別模組中使用全域變數。

Perl method is a Perl subroutine

Perl物件導向編程