http://blog.chinaunix.net/uid-27464093-id-3308003.html

Perl面向?qū)ο驪erl面向?qū)ο髮W(xué)習(xí)例子實(shí)例代碼教程 - 在我們了解perl的面向?qū)ο蟮母拍铋_始之前，讓我們了解引用和匿名數(shù)組和哈希表。 在我們了解perl的面向?qū)ο蟮母拍铋_始之前，讓我們了解引用和匿名數(shù)組和哈希表。引用 引用是完全像名稱所暗示的一樣，給另一個(gè)對(duì)象的引用或指針。有兩種類型的引用：符號(hào)和硬引用。 一個(gè)符號(hào)參考，使您能夠引用一個(gè)變量的名稱，使用另一個(gè)變量值。 例如，如果變量$foo的包含字符串“bar”，符號(hào)引用$foo的關(guān)聯(lián)變量$bar。一個(gè)硬引用是指在數(shù)據(jù)結(jié)構(gòu)中包含的實(shí)際數(shù)據(jù)。創(chuàng)建硬引用 一元反斜線運(yùn)算符用于創(chuàng)建一個(gè)命名的變量或子程序，例如：$foo = 'Bill'; $fooref = \$foo; 現(xiàn)在$fooref變量一個(gè)硬引用$foo的變量。你可以做同樣的與其他變量：$array = \@ARGV; $hash = \%ENV; $glob = \*STDOUT; 要?jiǎng)?chuàng)建一個(gè)子程序：sub foo { print "foo" }; $foosub = \&foo; 匿名數(shù)組 當(dāng)你直接創(chuàng)建一個(gè)引用到一個(gè)數(shù)組 - 也就是說(shuō)，沒(méi)有形成中間指定數(shù)組 - 您正在創(chuàng)建一個(gè)匿名數(shù)組。創(chuàng)建一個(gè)匿名數(shù)組是很容易的：$array = [ 'Bill', 'Ben, 'Mary' ]; 　　這一行分配一個(gè)數(shù)組，由封閉的方括號(hào)中，而不是正常的括號(hào)表示，標(biāo)量$array。賦值的右側(cè)上的值，使該陣列和左側(cè)包含此陣列的參考。您可以創(chuàng)建更復(fù)雜的結(jié)構(gòu)，通過(guò)嵌套數(shù)組：@arrayarray = ( 1, 2, [1, 2, 3]); @array數(shù)組包含三個(gè)元素，一個(gè)匿名的三個(gè)元素的數(shù)組的第三個(gè)元素是一個(gè)引用。匿名散列 匿名哈希，你也很容易創(chuàng)建需要使用大括號(hào)方括號(hào)：$hash = { 'Man' => 'Bill', 'Woman' => 'Mary, 'Dog' => 'Ben' }; 解除引用 解引用一個(gè)參考的最直接的方法是在前面加上相應(yīng)的數(shù)據(jù)類型的字符（標(biāo)量使用$，陣列使用@，哈希使用％，子程序用&）是你期待在前面的標(biāo)量量變量包含的引用。 $array = \@ARGV; # Create reference to array $hash = \%ENV; # Create reference to hash $glob = \*STDOUT; # Create reference to typeglob $foosub = \&foo; # Create reference to subroutine #by www.yiibai.com push (@$array, "From humans"); $$array[0] = 'Hello' $$hash{'Hello'} = 'World'; &$foosub; print $glob "Hello World!\n"; 對(duì)象基礎(chǔ) 主要有三種，解釋的Perl如何處理對(duì)象的角度來(lái)看。 該使用條款是對(duì)象，類和方法。在Perl中，對(duì)象僅僅是一個(gè)參考的數(shù)據(jù)類型，它知道它屬于什么類。對(duì)象存儲(chǔ)在一個(gè)標(biāo)量變量作為參考。因?yàn)橐粋€(gè)標(biāo)量只包含一個(gè)對(duì)象的引用，同樣的標(biāo)量可以容納不同的對(duì)象，不同的類中。在Perl中類是一個(gè)包，其中包含需要相應(yīng)的方法來(lái)創(chuàng)建和操作對(duì)象。在Perl中一個(gè)子程序，程序包定義的方法。該方法的第一個(gè)參數(shù)是一個(gè)對(duì)象引用或包名稱，取決于該方法是否影響當(dāng)前對(duì)象或類。Perl提供了bless()函數(shù)，用于返回一個(gè)引用，并成為一個(gè)對(duì)象。 定義一個(gè)類 定義一個(gè)類很簡(jiǎn)單。在Perl中類是對(duì)應(yīng)于一個(gè)包。要?jiǎng)?chuàng)建一個(gè)類，我們先建立一個(gè)包。包是一個(gè)獨(dú)立的單元，用戶定義的變量和子程序，它可以被重新使用一遍又一遍。他們提供了一個(gè)單獨(dú)的命名空間內(nèi)保持一個(gè)Perl程序，子程序和變量以免與其他包中的沖突。要聲明一個(gè)類名為Person，我們做：package Person; 包定義的范圍延伸到該文件的末尾，或直到遇到另一個(gè)package關(guān)鍵字。 創(chuàng)建和使用對(duì)象 要?jiǎng)?chuàng)建一個(gè)類的實(shí)例（對(duì)象），我們需要一個(gè)對(duì)象的構(gòu)造函數(shù)。此構(gòu)造函數(shù)是一個(gè)在包中定義的方法。大多數(shù)程序員來(lái)命名這種新對(duì)象的構(gòu)造方法，但在Perl中，可以使用任何名稱。在Perl中的對(duì)象，我們可以使用任何類型的Perl變量。大多數(shù)Perl程序員選擇使用數(shù)組或哈希表的引用。讓我們來(lái)創(chuàng)建我們的構(gòu)造函數(shù)使用一個(gè)Perl的哈希參考我們的Person類;當(dāng)創(chuàng)建一個(gè)對(duì)象，你需要提供一個(gè)構(gòu)造函數(shù)。這是一個(gè)子程序，它返回一個(gè)對(duì)象引用在一個(gè)包內(nèi)。blessing包的類創(chuàng)建的對(duì)象引用。例如：package Person; sub new { my $class = shift; my $self = { _firstName => shift, _lastName => shift, _ssn => shift, }; # Print all the values just for clarification. #by www.yiibai.com print "First Name is $self->{_firstName}\n"; print "Last Name is $self->{_lastName}\n"; print "SSN is $self->{_ssn}\n"; bless $self, $class; return $self; } 每類方法通過(guò)類名作為第一個(gè)參數(shù)。 因此，在上面的例子中的類名是“Person”。你可以試試這個(gè)打印$class的值。下一步將剩下的參數(shù)傳遞的方法。$object = new Person( "Mohammad", "Saleem", 23234345); 如果不希望任何類變量分配任何值，可以使用簡(jiǎn)單的哈希在構(gòu)造函數(shù)。例如 package Person; sub new { my $class = shift; my $self = {}; bless $self, $class; return $self; } 定義方法 其它面向?qū)ο笳Z(yǔ)言的概念，如：數(shù)據(jù)的安全性，以防止程序員等提供直接改變一個(gè)對(duì)象的數(shù)據(jù)訪問(wèn)方法來(lái)修改對(duì)象數(shù)據(jù)。 Perl沒(méi)有私有變量，但我們?nèi)匀豢梢允褂幂o助函數(shù)的方法，讓程序員不要亂用對(duì)象內(nèi)部結(jié)構(gòu)的概念。讓我們來(lái)定義一個(gè)輔助方法來(lái)獲得人的名字：sub getFirstName { return $self->{_firstName}; } 另一種輔助函數(shù)來(lái)設(shè)置人的名字：sub setFirstName { my ( $self, $firstName ) = @_; $self->{_firstName} = $firstName if defined($firstName); return $self->{_firstName}; } 讓我們看看到完整的例子：保持Person 包和輔助功能Person.pm文件。 #!/usr/bin/perl package Person; sub new { my $class = shift; my $self = { _firstName => shift, _lastName => shift, _ssn => shift, }; # Print all the values just for clarification. print "First Name is $self->{_firstName}\n"; print "Last Name is $self->{_lastName}\n"; print "SSN is $self->{_ssn}\n"; bless $self, $class; return $self; } sub setFirstName { my ( $self, $firstName ) = @_; $self->{_firstName} = $firstName if defined($firstName); return $self->{_firstName}; } #by www.yiibai.com sub getFirstName { my( $self ) = @_; return $self->{_firstName}; } 1; 現(xiàn)在，在mail.pl文件創(chuàng)建Person對(duì)象如下#!/usr/bin/perl use Person; $object = new Person( "Mohammad", "Saleem", 23234345); # Get first name which is set using constructor. $firstName = $object->getFirstName(); print "Before Setting First Name is : $firstName\n"; # Now Set first name using helper function. $object->setFirstName( "Mohd." ); # Now get first name set by helper function. $firstName = $object->getFirstName(); print "Before Setting First Name is : $firstName\n"; This will produce following result First Name is Mohammad Last Name is Saleem SSN is 23234345 Before Setting First Name is : Mohammad Before Setting First Name is : Mohd. 繼承 面向?qū)ο缶幊?#xff0c;有時(shí)涉及繼承。繼承僅僅意味著允許一個(gè)類被稱為“子類“從另一個(gè)類繼承方法和屬性，調(diào)用父類, 這樣你就不會(huì)一遍又一遍寫相同的代碼。例如，我們可以有一個(gè)Employee類繼承自Person。 這被稱為“是一個(gè)”的關(guān)系，因?yàn)楣蛦T是一個(gè)人。Perl有一個(gè)特殊的變量@ISA來(lái)鋪助，@ISA 管理（方法）繼承。 以下是使用繼承說(shuō)明Perl搜索指定對(duì)象的指定對(duì)象的類。Perl搜索類中定義的對(duì)象類的@ISA陣列。如果沒(méi)有在步驟1和2找到方法，那么如果找到一個(gè)在@ ISA樹，Perl使用AUTOLOAD子程序， 如果仍然無(wú)法找到匹配的方法，那么Perl搜索的方法在通用類（包），標(biāo)準(zhǔn)的Perl庫(kù)的一部分。如果方法還沒(méi)有被發(fā)現(xiàn)，那么Perl放棄，并提出了一個(gè)運(yùn)行時(shí)異常。因此，要?jiǎng)?chuàng)建一個(gè)新的Employee類將繼承我們的Person類的方法和屬性，我們簡(jiǎn)單的代碼：保持將此程式碼放入Employee.pm#!/usr/bin/perl package Employee; use Person; use strict; our @ISA = qw(Person); # inherits from Person Employee類的所有方法和屬性繼承自Person類，你可以用它如下：使用main.pl文件來(lái)測(cè)試它#!/usr/bin/perl use Employee; $object = new Employee( "Mohammad", "Saleem", 23234345); # Get first name which is set using constructor. $firstName = $object->getFirstName(); print "Before Setting First Name is : $firstName\n"; # Now Set first name using helper function.- by www.yiibai.com $object->setFirstName( "Mohd." ); # Now get first name set by helper function. $firstName = $object->getFirstName(); print "After Setting First Name is : $firstName\n"; This will produce following result First Name is Mohammad Last Name is Saleem SSN is 23234345 Before Setting First Name is : Mohammad Before Setting First Name is : Mohd. 方法重載 子類Employee繼承了所有的方法從父類Person.但是，如果你想在你的子類中重寫這些方法，那么你可以實(shí)現(xiàn)。在子類中，可以添加額外的函數(shù)。它可以做如下：修改Employee.pm文件：#!/usr/bin/perl package Employee; use Person; use strict; our @ISA = qw(Person); # inherits from Person # Override constructor sub new { my ($class) = @_; # Call the constructor of the parent class, Person. my $self = $class->SUPER::new( $_[1], $_[2], $_[3] ); # Add few more attributes $self->{_id} = undef; $self->{_title} = undef; bless $self, $class; return $self; } # Override helper function sub getFirstName { my( $self ) = @_; # This is child class function. print "This is child class helper function\n"; return $self->{_firstName}; } # Add more methods sub setLastName{ my ( $self, $lastName ) = @_; $self->{_lastName} = $lastName if defined($lastName); return $self->{_lastName}; } sub getLastName { my( $self ) = @_; return $self->{_lastName}; } 1; 現(xiàn)在把下面的代碼到main.pl和執(zhí)行它#!/usr/bin/perl use Employee; $object = new Employee( "Mohammad", "Saleem", 23234345); # Get first name which is set using constructor. $firstName = $object->getFirstName(); print "Before Setting First Name is : $firstName\n"; # Now Set first name using helper function. $object->setFirstName( "Mohd." ); # Now get first name set by helper function. $firstName = $object->getFirstName(); print "After Setting First Name is : $firstName\n"; This will produce following result First Name is Mohammad Last Name is Saleem SSN is 23234345 This is child class helper function Before Setting First Name is : Mohammad This is child class helper function After Setting First Name is : Mohd. 默認(rèn)自動(dòng)加載 Perl提供了一個(gè)功能，你不會(huì)在其他許多編程語(yǔ)言找到：默認(rèn)的子程序。 如果你定義了一個(gè)函數(shù)調(diào)用AUTOLOAD()，那么任何未定義的子程序的調(diào)用將調(diào)用AUTOLOAD()函數(shù)。在此子程序$ AUTOLOAD缺少的子程序的名稱。 這個(gè)功能是非常有用的錯(cuò)誤處理的目的。下面是一個(gè)例子實(shí)現(xiàn)的AUTOLOAD，你可以使用自己的方式實(shí)現(xiàn)這個(gè)函數(shù)。 sub AUTOLOAD { my $self = shift; my $type = ref ($self) || croak "$self is not an object"; my $field = $AUTOLOAD; $field =~ s/.*://; unless (exists $self->{$field}) { croak "$field does not exist in object/class $type"; } if (@_) { return $self->($name) = shift; } else { return $self->($name); } } 析構(gòu)函數(shù)和垃圾收集 如果你已經(jīng)編程使用對(duì)象之前，而你將意識(shí)到需要?jiǎng)?chuàng)建一個(gè)析構(gòu)函數(shù)。當(dāng)你使用完要釋放分配的內(nèi)存對(duì)象。Perl自動(dòng)為您盡快的對(duì)象超出作用域。 如果你想實(shí)現(xiàn)你的析構(gòu)函數(shù)關(guān)閉文件，或做一些額外的處理，那么你需要定義一個(gè)特殊的方法，命名為destroy。 此方法會(huì)被調(diào)用的對(duì)象只是在Perl之前釋放分配給它的內(nèi)存。 在其他方面，就像其他DESTROY方法，可以操作任何你喜歡對(duì)象，以便正確地關(guān)閉它。析構(gòu)函數(shù)的方法是簡(jiǎn)單地一個(gè)成員函數(shù)（子程序）命名的破壞都會(huì)被自動(dòng)調(diào)用當(dāng)對(duì)象的引用變量超出了作用域。 當(dāng)對(duì)象引用的變量是未定義 當(dāng)腳本結(jié)束 當(dāng)Perl解釋器終止 有關(guān)實(shí)例：package MyClass; ... sub DESTROY { print " MyClass::DESTROY called\n"; } 另一種面向?qū)ο髮?shí)例 這里是另一個(gè)很好的例子，這將有助于你了解面向?qū)ο蟮母拍頟erl。把這個(gè)源代碼轉(zhuǎn)換成任何文件，并執(zhí)行它。#!/usr/bin/perl # Following is the implementation of simple Class. package MyClass; sub new { print " MyClass::new called\n"; my $type = shift; # The package/type name my $self = {}; # Reference to empty hash return bless $self, $type; } sub DESTROY { print " MyClass::DESTROY called\n"; } sub MyMethod { print " MyClass::MyMethod called!\n"; } # Following is the implemnetation of Inheritance. package MySubClass; @ISA = qw( MyClass ); sub new { print " MySubClass::new called\n"; my $type = shift; # The package/type name my $self = MyClass->new; # Reference to empty hash return bless $self, $type; } sub DESTROY { print " MySubClass::DESTROY called\n"; } sub MyMethod { my $self = shift; $self->SUPER::MyMethod(); print " MySubClass::MyMethod called!\n"; } # Here is the main program using above classes. package main; print "Invoke MyClass method\n"; $myObject = MyClass->new(); $myObject->MyMethod(); print "Invoke MySubClass method\n"; $myObject2 = MySubClass->new(); $myObject2->MyMethod(); print "Create a scoped object\n"; { my $myObject2 = MyClass->new(); } # Destructor is called automatically here #by www.yiibai.com print "Create and undef an object\n"; $myObject3 = MyClass->new(); undef $myObject3; print "Fall off the end of the script...\n"; # Remaining destructors are called automatically here

?

總結(jié)

以上是生活随笔為你收集整理的浅谈Perl的类、包、模块与面对对象编程的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。