Perl物件導向--類

最近工作當中要用Perl寫一些指令碼，發現Perl面象物件的程式設計比較生疏，所以重新學習一下，順便做個記錄。

Perl中的類就是一個Perl的包(package)。Perl的類實際上就是一個雜湊表的引用。Perl使用關bless函式來生成類的引用。

bless ClasssRef [,ClassName];

看程式碼，如何定義一個類：

##Foo.pm
package Foo;
#require Exporter;
#@EXPORT =(do_sth);
#建構函式
sub new{
    my $class = shift;
    my $this = {};
    ##屬性
    $this->{name} = "Foo";
    bless $this,$class;
    return $this;
}

#方法
sub do_sth{
    print "Do something here\n";
}

1;

現在，你就可以在程式碼中引用類Foo，

##test.pl
use Foo;

my $f = Foo->new();

$f->do_sth();