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