使用 Perl 建立和使用物件


要建立一個類(一個物件)的例項,我們需要在 Perl 中使用一個物件建構函式。該 Perl 中的建構函式是一個在包內定義的方法。大多數程式設計師選擇將此物件建構函式方法命名為 new,但在 Perl 中你可以使用任意名稱。

你可以在 Perl 中使用任何型別的 Perl 變數作為物件。大多數 Perl 程式設計師選擇引用陣列或雜湊。

讓我們使用 Perl 雜湊引用來為我們的 Person 類建立建構函式。建立物件時,你需要提供一個建構函式,它是包內的一個返回物件引用的子例程。物件引用是透過祝福一個包類的引用來建立的。例如,以下所示 −

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;
}

現在,讓我們看看如何建立一個物件。

$object = new Person( "Mohammad", "Saleem", 23234345);

如果你不想向任何類變數分配任何值,則可以在建構函式中使用簡單的雜湊。例如,以下所示 −

package Person;
sub new {
   my $class = shift;
   my $self = {};
   bless $self, $class;
   return $self;
}

更新日期: 02-12-2019

173 瀏覽量

開啟你的 職業生涯

完成課程以獲取認證

開始
廣告
© . All rights reserved.