使用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;
}热门推荐
4 送蛇的祝福语简短
10 考试祝福语日文简短版
11 简短霸气的考试祝福语
12 春季祝福语女生文案简短
13 婶婶生日贺词简短祝福语
14 38节贺卡简短祝福语
15 新年的鸡汤祝福语简短
16 月子小孩祝福语大全简短
17 班级集体生日祝福语简短
18 六一祝福语简短感动女生