无涯教程-Perl - 面向对象

 Perl中的面向对象概念很大程度上基于引用以及匿名数组和哈希。让我们开始学习面向对象Perl的基本概念。

定义类

在Perl中定义一个类非常简单。类以最简单的形式对应于Perl软件包。要在Perl中创建一个类，我们首先构建一个包。

Perl软件包在Perl程序中提供了一个单独的名称空间，该名称空间使子例程和变量独立于与其他软件包中的子例程和变量的冲突。

package Person;

创建对象

要创建类的实例，我们需要一个对象构造函数。此构造函数是在包内定义的方法。大多数程序员选择将此对象构造函数方法命名为new，但是在Perl中可以使用任何名称。

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

定义方法

其他面向对象的语言具有数据安全性的概念，以防止程序员直接更改对象数据，并且它们提供访问器方法来修改对象数据。 Perl没有私有变量，但是我们仍然可以使用辅助方法的概念来操作对象数据。

让我们定义一个辅助方法来获取人的名字-

sub getFirstName {return $self->{_firstName};
}

另一个用于设置人的名字-

sub setFirstName {my ( $self, $firstName )=@_;$self->{_firstName}=$firstName if defined($firstName);return $self->{_firstName};
}

现在让我们看一个完整的示例:将Person包和辅助函数保存在Person.pm文件中。

#!/usr/bin/perl 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;
}
sub setFirstName {my ( $self, $firstName )=@_;$self->{_firstName}=$firstName if defined($firstName);return $self->{_firstName};
}sub getFirstName {my( $self )=@_;return $self->{_firstName};
}
1;

现在让我们如下使用employee.pl文件中的Person对象-

#!/usr/bin/perluse Person;$object=new Person( "Mohammad", "Saleem", 23234345);
# Get first name which is set using constructor.
$firstName=$object->getFirstName();print "Before Setting First Name is : $firstName\n";# Now Set first name using helper function.
$object->setFirstName( "Mohd." );# Now get first name set by helper function.
$firstName=$object->getFirstName();
print "Before Setting First Name is : $firstName\n";

当我们执行以上程序时，它产生以下输出-

First Name is Mohammad
Last Name is Saleem
SSN is 23234345
Before Setting First Name is : Mohammad
Before Setting First Name is : Mohd.

类继承

例如，我们可以有一个Employee类，该类继承自Person。这被称为" isa"关系，因为员工是一个人。 Perl有一个特殊的变量@ISA，以帮助解决此问题。 @ISA控制(方法)继承。

因此，要创建一个新的Employee类以继承Person类的方法和属性，我们只需编写以下代码:将这些代码保存在Employee.pm中。

#!/usr/bin/perlpackage Employee;
use Person;
use strict;
our @ISA=qw(Person);    # inherits from Person

现在，Employee Class具有从Person类继承的所有方法和属性，您可以按如下方式使用它们:使用main.pl文件对其进行测试-

#!/usr/bin/perluse Employee;$object=new Employee( "Mohammad", "Saleem", 23234345);
# Get first name which is set using constructor.
$firstName=$object->getFirstName();print "Before Setting First Name is : $firstName\n";# Now Set first name using helper function.
$object->setFirstName( "Mohd." );# Now get first name set by helper function.
$firstName=$object->getFirstName();
print "After Setting First Name is : $firstName\n";

当我们执行以上程序时，它产生以下输出-

First Name is Mohammad
Last Name is Saleem
SSN is 23234345
Before Setting First Name is : Mohammad
Before Setting First Name is : Mohd.

方法重载

子类Employee从父类Person继承所有方法。但是，如果您想在子类中覆盖这些方法，则可以通过提供自己的实现来实现。您可以在子类中添加其他函数，也可以在其父类中添加或修改现有方法的函数。可以按照以下步骤完成:修改Employee.pm文件。

#!/usr/bin/perlpackage Employee;
use Person;
use strict;
our @ISA=qw(Person);    # inherits from Person# Override constructor
sub new {my ($class)=@_;# Call the constructor of the parent class, Person.my $self=$class->SUPER::new( $_[1], $_[2], $_[3] );# Add few more attributes$self->{_id}  =undef;$self->{_title}=undef;bless $self, $class;return $self;
}# Override helper function
sub getFirstName {my( $self )=@_;# This is child class function.print "This is child class helper function\n";return $self->{_firstName};
}# Add more methods
sub setLastName{my ( $self, $lastName )=@_;$self->{_lastName}=$lastName if defined($lastName);return $self->{_lastName};
}sub getLastName {my( $self )=@_;return $self->{_lastName};
}1;

现在，让我们再次尝试在main.pl文件中使用Employee对象并执行它。

#!/usr/bin/perluse Employee;$object=new Employee( "Mohammad", "Saleem", 23234345);
# Get first name which is set using constructor.
$firstName=$object->getFirstName();print "Before Setting First Name is : $firstName\n";# Now Set first name using helper function.
$object->setFirstName( "Mohd." );# Now get first name set by helper function.
$firstName=$object->getFirstName();
print "After Setting First Name is : $firstName\n";

当我们执行以上程序时，它产生以下输出-

First Name is Mohammad
Last Name is Saleem
SSN is 23234345
This is child class helper function
Before Setting First Name is : Mohammad
This is child class helper function
After Setting First Name is : Mohd.

自动加载

Perl提供了其他任何编程语言都找不到的函数:默认子程序。这意味着，如果定义一个名为 AUTOLOAD的函数，那么对未定义子例程的任何调用都会自动调用AUTOLOAD函数。缺少的子例程的名称可以在该子例程中以$AUTOLOAD的形式访问。

默认的自动加载函数对于错误处理非常有用。这是实现AUTOLOAD的示例，您可以以自己的方式实现此函数。

sub AUTOLOAD {my $self=shift;my $type=ref ($self) || croak "$self is not an object";my $field=$AUTOLOAD;$field =~ s/.*://;unless (exists $self->{$field}) {croak "$field does not exist in object/class $type";}if (@_) {return $self->($name)=shift;} else {return $self->($name);}
}

垃圾回收

如果您以前使用面向对象编程进行编程，那么您将意识到有必要创建析构函数，以在使用完对象后释放分配给该对象的内存。一旦对象超出范围，Perl就会自动为您执行此操作。

析构函数方法只是名为DESTROY的成员函数在以下情况下会自动调用-

  • 当对象引用的变量超出范围时。
  • 未定义对象引用的变量时。
  • 脚本终止时。
  • 当perl解释器终止时。

例如，您可以将以下方法DESTROY放在您的类中-

package MyClass;
...
sub DESTROY {print "MyClass::DESTROY called\n";
}

完整示例

这是另一个不错的示例，它将帮助您理解Perl的面向对象概念。将此源代码放入任何perl文件中并执行它。

#!/usr/bin/perl# Following is the implementation of simple Class.
package MyClass;sub new {print "MyClass::new called\n";my $type=shift;            # The package/type namemy $self={};               # Reference to empty hashreturn bless $self, $type;   
}sub DESTROY {print "MyClass::DESTROY called\n";
}sub MyMethod {print "MyClass::MyMethod called!\n";
}# Following is the implemnetation of 遗产.
package MySubClass;@ISA=qw( MyClass );sub new {print "MySubClass::new called\n";my $type=shift;            # The package/type namemy $self=MyClass->new;     # Reference to empty hashreturn bless $self, $type;  
}sub DESTROY {print "MySubClass::DESTROY called\n";
}sub MyMethod {my $self=shift;$self->SUPER::MyMethod();print "   MySubClass::MyMethod called!\n";
}# Here is the main program using above classes.
package main;print "Invoke MyClass method\n";$myObject=MyClass->new();
$myObject->MyMethod();print "Invoke MySubClass method\n";$myObject2=MySubClass->new();
$myObject2->MyMethod();print "Create a scoped object\n";
{my $myObject2=MyClass->new();
}
# Destructor is called automatically hereprint "Create and undef an object\n";
$myObject3=MyClass->new();
undef $myObject3;print "Fall off the end of the script...\n";
# Remaining destructors are called automatically here

当我们执行以上程序时，它产生以下输出-

Invoke MyClass method
MyClass::new called
MyClass::MyMethod called!
Invoke MySubClass method
MySubClass::new called
MyClass::new called
MyClass::MyMethod called!
MySubClass::MyMethod called!
Create a scoped object
MyClass::new called
MyClass::DESTROY called
Create and undef an object
MyClass::new called
MyClass::DESTROY called
Fall off the end of the script...
MyClass::DESTROY called
MySubClass::DESTROY called

Perl - 面向对象 - 无涯教程网无涯教程网提供 Perl中的面向对象概念很大程度上基于引用以及匿名数组和哈希。让我们开始学习面向对...https://www.learnfk.com/perl/perl-object-oriented.html

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.hqwc.cn/news/60396.html

如若内容造成侵权/违法违规/事实不符，请联系编程知识网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！

相关文章

Kafka：安装和配置

Kafka：安装和配置

producer：发布消息的对象，称为消息产生者 （Kafka topic producer） topic：Kafka将消息分门别类，每一个消息称为一个主题（topic） consumer：订阅消息并处理发布消息的对象…
阅读更多...
Apache2.4源码安装与配置

Apache2.4源码安装与配置

环境准备 openssl-devel pcre-devel expat-devel libtool gcc libxml2-devel 这些包要提前安装，否则httpd编译安装时候会报错 下载源码、解压缩、软连接 1、wget下载[rootnode01 ~]# wget https://downloads.apache.org/httpd/httpd-2.4.57.tar.gz --2023-07-20 …
阅读更多...
jenkins流水线

jenkins流水线

1.拉取代码 https://gitee.com/Wjc_project/yygh-parent.git2、项目编译 mvn clean package -Dmaven.test.skiptrue ls hospital-manage/target3、构建镜像 ls hospital-manage/target docker build -t hospital-manage:latest -f hospital-manage/Dockerfile ./hospital-ma…
阅读更多...
本质矩阵E、基本矩阵F、单应矩阵H

本质矩阵E、基本矩阵F、单应矩阵H

1. E (归一化坐标对进行计算) t ^ R 为3*3的矩阵, 因为R,t共有6个自由度，又因为单目尺度等价性，所以实际上E矩阵共有5个自由度。因此至少需要5个点对来求解。 2. 基本矩阵F:根据两帧间匹配的像素点对儿计算 3*3且自由度为7的矩阵kF也为基础矩阵&#x…
阅读更多...
如何给Google Chrome增加proxy

如何给Google Chrome增加proxy

1. 先打开https://github.com/KaranGauswami/socks-to-http-proxy/releases 我的电脑是Liunx系统所以下载第一个 2. 下载完之后把这个文件变成可执行文件，可以是用这个命令 chmod x 文件名 3. 然后执行这个命令： ./sthp-linux -p 8080 -s 127.0.0.1:…
阅读更多...
使用 Visual Studio Code 调试 CMake 脚本

使用 Visual Studio Code 调试 CMake 脚本

之前被引入到 Visual Studio 中的 CMake 调试器，现已在 Visual Studio Code 中可用。 也就是说，现在你可以通过在 VS Code 中安装 CMake 工具扩展，来调试你的 CMakeLists.txt 脚本了。是不是很棒? 背景知识 Visual C 开发团队和 CMake 的维…
阅读更多...
tui.calender日历在vue中的使用1.0

tui.calender日历在vue中的使用1.0

官网：https://ui.toast.com/tui-calendar github：https://github.com/nhn/tui.calendar/tree/main 月、周、日视图都有，拖拽也比较方便，但是自己用起来比较费劲，参考文档写得不全，做个记录日后方便参考&…
阅读更多...
如何使用 AT+WEBSERVER 指令实现自定义的 Webserver html 网页配网

如何使用 AT+WEBSERVER 指令实现自定义的 Webserver html 网页配网

开启 AT 固件中的 Webserver 指令和 FS 指令支持 乐鑫官网发布的默认通用 AT 固件不支持 webserver 配网功能， 需要用户自己搭建 esp-at 环境，并在 sdkconfig 中开启 webserver AT 指令 和 FS 指令的支持， 如下图所示： 测试 AT 固…
阅读更多...
【Spring Boot】构建RESTful服务 — 构建RESTful应用接口

【Spring Boot】构建RESTful服务 — 构建RESTful应用接口

构建RESTful应用接口 RESTful架构是目前最流行的互联网软件架构规范，是Web API（应用编程接口）的大趋势和主流规范，了解了RESTful的众多优点之后，接下来一步一步地学习如何使用Spring Boot构建RESTful Web API。 1.Sp…
阅读更多...
ThinkPHP6企业OA办公系统

ThinkPHP6企业OA办公系统

有需要请加文章底部Q哦 可远程调试 ThinkPHP6企业OA办公系统 一 介绍 勾股OA基于ThinkPHP6开发，前端Layui，数据库mysql，是一款实用的企业办公系统。可多角色登录，集成了系统设置、人事管理、消息管理、审批管理、日常办公、客户…
阅读更多...
解决Qt的列表加载大量数据卡顿的问题

解决Qt的列表加载大量数据卡顿的问题

问题概述 本人在使用QListView插入大量数据时，界面卡顿十分严重。数据量大概只有上千左右，但是每个Item的内容比较多。当数据不停地插入一段时间后，卡顿到鼠标的移动都有点困难。 解决思路 QListView是典型的MVC思想的产物。界面呈现出来的数…
阅读更多...
python——案例11：数值交换

python——案例11：数值交换

案例11：数值交换xinput(输入一个数值赋值给x：) yinput(输入一个数值赋值给y：)tempx #创建临时变量，以此变量为基础进行逐次交换 xy ytemp print(交换后的X的值是:{}.format(x)) # print(交换后的Y的值是:{}.format(y)) #
阅读更多...
推荐文章
最新文章

Copyright @ 2022~2023