使用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;
}热门推荐
10 八一幼儿祝福语大全简短
11 公司乔迁食堂祝福语简短
12 婚礼结束聚餐祝福语简短
13 儿媳买车妈妈祝福语简短
14 毕业送礼老师祝福语简短
15 同事辞职正常祝福语简短
16 恭贺新婚文案祝福语简短
17 金店立秋祝福语简短英文
18 婆婆高寿祝福语大全简短