Perl构造函数和析构函数用法指南

build
Perl子例程中的构造方法返回一个对象, 该对象是该类的实例。在Perl中, 约定是命名构造函数
new
。不像其他
面向对象
, Perl不提供任何特殊的语法来构造对象。它使用已与该特定类显式关联的数据结构(哈希, 数组, 标量)。
构造函数使用
bless
哈希引用和类名(包的名称)上的函数。
让我们设计一些代码以获得更好的解释：
注意：
由于使用了程序包, 因此以下代码无法在Online IDE上运行。下面的代码是Perl类或模块文件。将以下文件另存为(* .pm)扩展名。

# Declaring the Package package Area; # Declaring the Constructor method sub new { return bless {}, shift ; # blessing on the hashed # reference (which is empty). }1;

调用构造方法时, 包名称" Area"存储在默认数组中" @_"。的"转移"关键字用于从中获取软件包名称" @_"并将其传递给"保佑"功能。

package Area; sub new { my $class = shift ; # defining shift in $myclass my $self = {}; # the hashed reference return bless $self , $class ; } 1;

Note: "my" restricts the scope of a variable.

Perl中的属性存储为散列引用中的键值对。此外, 向代码添加一些属性。

package Area; sub new { my $class = shift ; my $self = { length => 2, # storing length width=> 3, # storing width }; return bless $self , $class ; } 1;

上面的代码(区类)具有两个属性：长度和宽度。为了访问这些属性, 另一个Perl程序被设计为使用它们。

use strict; use warnings; use Area; use feature qw/say/ ; # creating a new Area object my $area = Area-> new; say $area -> { length }; #print the length say $area -> {width}; # print the width

运行代码的步骤：

将"带有程序包区域的程序"保存到名为的文本文件中Area.pm
注意：文件名应始终与包名相同。
现在, 保存用于访问名称为* .pl的程序包中定义的属性的程序。在这里, *可以是任何名称(在本例中为test.pl)。
使用以下命令在Perl命令行中运行另存为test.pl的代码
perl test.pl

输出如下：

文章图片
传递动态属性：
使用动态属性更新现有文件：
Areas.pm：

package Area; sub new { my ( $class , $args ) = @_ ; # since the values will be # passed dynamically my $self = { length => $args -> { length } || 1, # by default the value is 1 (stored) width=> $args -> {width} || 1, # by default the value is 1 (stored) }; return bless $self , $class ; }# we have added the get_area function to # calculate the area as well sub get_area { my $self = shift ; # getting the area by multiplication my $area = $self -> { length } * $self -> {width}; return $area ; } 1;

test.pl：

use strict; use warnings; use feature qw/say/ ; use Area; # pass length and width arguments # to the constructor my $area = Area-> new( { length => 2, # passing '2' as param of length width => 2, # passing '2' as param of width }); say $area -> get_area;

现在, 参数