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