Perl对象概念（面向对象编程） _面向对象

本文概述

Perl基本对象
Perl类声明
Perl构造函数
Perl实例/对象
Perl析构函数
Perl定义方法
Perl继承
Perl多态性

Perl为我们提供了一些构建面向对象系统的工具。 Perl面向对象的概念基于引用, 匿名数组和哈希。
Perl基本对象一个对象只是一个数据结构, 它知道它所属的类名。它作为参考存储在标量变量中。相同的标量变量可以保存不同类中的不同对象, 因为它仅保存对对象的引用。
一个类就是一个包。它包含对对象进行操作(创建和操作)的方法。
方法是一个子例程, 该例程将对象引用或程序包名称作为第一个参数。
Perl类声明要创建一个类, 我们需要在Perl中创建一个包。程序包包含可以重用的变量和子例程。
由于每个类都是一个包, 因此它具有自己的名称空间, 该名称空间由符号名称组成。类是使用package关键字创建的名称空间。通常在与类同名的模块中实现。例如, My ::文件将在File.pm文件中实现, 位置将是目录My, 其内容如下。

package My::File; use strict; use warnings; 1;

此处的末尾1表示文件已成功加载。
包的范围扩展到文件末尾, 或者直到遇到另一个包关键字。
Perl构造函数代码需要一个功能完整的类的构造函数。
通常, 构造函数是作为新方法实现的。

sub new { my ($class, %args) = @_; return bless \%args, $class; }

Perl实例/对象实例或对象主要是对哈希的祝福引用。祝福某事意味着我们祝福该变量所指的事物。

use Scalar::Util 'blessed'; my $Ana = {}; my $Christian = $Ana; bless $Ana, 'Happiness'; print blessed( $Christian ) // 'not blessed'; # Class print "\n"; $Christian = "some other value"; print blessed( $Christian ) // 'not blessed'; # not blessed print "\n";

输出

Class not blessed

在上面的程序中, 当我们对变量调用” 保佑” 时, 我们保佑变量所引用的数据结构。参考没有得到祝福。因此, 当我们第二次调用blessed($ Christian)时, 它将返回false。因为$ Christian没有存储对对象的引用。
Perl析构函数Perl析构函数用于清除不再需要分配给对象的内存。当对象超出范围时, 它将在Perl中自动完成。因此, 它通常不在Perl中实现。
为了实现析构函数, 这里有一个称为DESTROY的函数。在Perl销毁对象并回收内存之前调用它。

package MyExample; sub DESTROY { my ($self) = @_; print "MyExample::DESTROY called\n"; }

Perl定义方法在Perl中没有特殊的语法来定义方法。它只是一个普通的子例程, 用’ sub’ 关键字声明。
方法将对象或类名作为其第一个参数。
要调用方法, 请使用-> 运算符。
要将方法作为对象调用, 使用以下语法：

$object -> method

左边有对象名, 右边有方法名。
调用方法时, 左侧对象作为第一个参数传递到右侧。
例：
在此示例中, 我们将设置一个帮助方法和一个帮助函数来设置学生的姓名和等级。
【Perl对象概念（面向对象编程）】步骤1在hw.pl文件中, 定义一个帮助方法studentName以获取学生的姓名。
定义一个辅助函数studentRank以获取学生的排名。

sub studentName { return $self-> {_name}; } sub studentRank { my ( $self, $name ) = @_; $self-> {_name} = $name if defined($name); return $self-> {_name}; }

步骤2在student.pm文件中, 编写Student package和helper函数。

#!/usr/bin/perl package Student; sub new { my $class = shift; my $self = { _name => shift, _rank=> shift, }; # Print all the values just for clarification. print "Student's name is $self-> {_name}\n"; print "Student's rank is $self-> {_rank}\n"; bless $self, $class; return $self; } sub studentRank { my ( $self, $name ) = @_; $self-> {_name} = $name if defined($name); return $self-> {_name}; } sub studentName { my( $self ) = @_; return $self-> {_name}; } 1;

步骤3在person.pl文件中, 我们将使用Student对象获取输出。

#!/usr/bin/perl use Student; $object = new Student( "Ana", "9th"); # name which is set using constructor. $name = $object-> studentName(); print "Name set using constructor is : $name\n"; # name set using helper function. $object-> studentRank( "Anastasia" ); # getting name set by helper function. $name = $object-> studentName(); print "Name set using helper is : $name\n";

输出

Student's name is Ana Student's rank is 9th Name set using constructor is : Ana Name set using helper is : Anastasia

Perl继承继承意味着子类将继承父类的属性和方法。因此, 要重用代码, 你可以简单地继承它。在Perl中, @ ISA数组定义继承。
使用继承时, 应考虑以下几点：

它将搜索给定方法的对象类, 即；变量。
它搜索在对象类的@ISA数组中定义的类。
如果在上述步骤中未找到任何方法, 它将使用AUTOLOAD子例程。
如果仍然找不到方法, 它将使用UNIVERSAL类进行搜索, 该类是标准Perl库的一部分。
如果仍然找不到, 则会发生运行时异常。

也可以使用父指令声明继承, 该指令取代了较早的基本指令。
例：
我们的脚本加载一个模块, 调用其构造函数, 然后调用两个方法。
使用以下脚本创建hw.pl文件。在这里, 模块本身使用父指令声明其继承。

#!/usr/bin/perl use strict; use warnings; use Module1; my $myObj = Module1-> new; $myObj-> setHello; $myObj-> setBye;

输出

This is Hello message from Module1 This is Bye message from Module2

使用以下脚本创建Module1.pm文件。它从继承构造函数和其他方法的位置声明模块。

package Module1; use strict; use warnings; use parent 'Module2'; sub setHello { print "This is Hello message from Module1\n"; } 1;

使用以下脚本创建Module2.pm文件。

package Module2; use strict; use warnings; sub new { my ($class) = @_; return bless {}, $class; } sub setBye { my ($self) = @_; print "This is Bye message from Module2\n"; return; } 1;

从Module1调用新方法时, Perl不会在Module1中找到它。它将在继承链中的下一个模块Module2中查找它。因此, 将从Module2中调用新方法。
Perl多态性多态性意味着基类中定义的方法将覆盖父类中定义的方法。
它附加了现有类的功能, 而无需重新编程整个类。
例：