4

我是 Perl 的新手，我想了解/了解更多关于 OO 部分的信息。假设我有一个只有属性的“类”；与直接处理散列相比，创建包和祝福散列是否有好处/优势？

为简单起见，让我们考虑以下示例：

package Person;

sub new {
    my $class = shift;
    my $args = {Name => '', Age => 0, @_};
    
    my $self = { Name => $args->{Name},
                 Age => $args->{Age}, };
    
    bless $self, $class;
}


package main;

my $person1 = Person->new(Name => 'David', Age => 20);
my $person2 = {Name => 'David', Age => 20, Pet => 'Dog'};

print $person1->{Name} . "\n";
print $person2->{Name} . "\n";

我想知道的是$person1和之间的区别是什么$person2，除了OO部分之外，除了 1 是祝福散列而 2 是散列引用这一事实之外？

在这种情况下，使用对象比处理哈希有什么好处吗？

查看答案后：

感谢所有的帮助:)

Håkon Hægland 评论对我来说是最接近的答案，我只是想知道，考虑到我只需要持有简单的标量，没有特殊检查，没有其他功能，一个类是否比简单的哈希有好处（我知道如果我需要额外的功能和继承一个类将是正确的工具）

4

2 回答 2

6

$person1是一个被祝福的参考。为了创建对象，Perl 将引用的数据与包名相关联。当您将该引用视为一个对象时，Perl 使用该包名称来查找方法。

$person2只是一个参考。

由于两者仍然只是引用，您仍然可以将每个都视为引用。这就是为什么这仍然有效：

print $person1->{Name} . "\n";
print $person2->{Name} . "\n";

你使用哪一个取决于你用它做什么。工具在上下文之外没有实用性。

您可以阅读有关面向对象思想的整本书（其中很多）。使用普通哈希，您要求一个键，您会得到一个值。使用面向对象的接口，您可以使用方法要求对象为您做某事。这可能会返回一个值，或者做任何你喜欢的事情。您不必知道对象是如何工作的。

该接口可以是稳定的，而底层数据或结构可以更改。使用普通散列，您的程序必须知道散列结构的变化。

在简单的示例中，例如您提供的示例，您看不到太多好处，因为您将接口直接映射到结构。如果您查看更复杂的示例（例如复杂的 Perl 模块），您会发现您可以访问的内容不会直接映射到它们使用的数据结构上。

例如，假设您的任务的某些部分根据某人的年龄（例如有关存储人们数据的各种法律或法规）来分隔任务。也许你有一个方法is_underage：

if( $person2->is_underage ) { ... }

您不一定将其存储为一个硬性答案，特别是因为该年龄可能因司法管辖区和活动而异。但是，模块以某种方式解决了这个问题。这就是界面的重点：隐藏复杂性。

例如，请参阅脚本如何成为模块。在一个扩展示例中，我从一些简单的东西开始，但随着问题变得有点复杂，我开始四处移动并最终得到一个模块。但是，这个故事的一部分是认识到什么时候一个物体可以让事情变得更简单。

这是您通过经验得出的结论。尝试两种方式。寻找你在任何一种方式上都过于努力的线索。例如，有些人已经推荐了 Moo，但考虑是否需要引入模块来做一些简单的事情。同样，如果您正在构建一个大型系统，那么框架可能是合适的。

有很多人主张完全遵守 OO，但也有一个同样（错误的 :) 阵营一直在主张裸数据结构。不过，函数式和 OO 风格不一定是敌人，尤其是在 Perl 中。

于 2021-06-23T16:50:50.683 回答
1

如果您不打算使用方法调用，则没有太大区别。您可以做的一件事$person1是通过调用ref $person1. 您还可以安排Person从基类继承属性。

您可以做的另一件事Person是提供对其数据属性的访问验证。因此，$person1->{Name}您将实现一个name()返回的方法，$person1->{Name}并可能执行一些其他有用的事情，例如日志记录，或检查名称是否已定义等等。

例如：

#! /usr/bin/env perl

package LivingBeing;
use strict;
use warnings;
sub new {
    die "LivingBeing: Wrong number of arguments to the constructor!" if @_ != 2;
    my ( $class, $type ) = @_;

    return bless {type => $type}, $class;
}

package Person;
use strict;
use warnings;
use parent -norequire => qw(LivingBeing);
sub new {
    my ($class, %args) = @_;
    my $self = $class->SUPER::new('human');
    $self->{age} = 0;  # Default value
    $self->{$_} = $args{$_} for keys %args;  # Maybe override default values..
    return $self;
}

sub name {
    my $self = shift;
    my $name = $self->{name};
    warn "Undefined name attribute" if !defined $name;
    return $name;
}

package main;
use strict;
use warnings;
use feature qw(say);

my $person1 = Person->new(pet => 'cat', age => 20);
my $person2 = {name => 'David', age => 20, pet => 'dog'};

say "person1 is a : ", ref $person1;
say "person2 is a : ", ref $person2;

say "The name of person1 is: ", $person1->name;
say "The age of person1 is: ", $person1->{age};

输出：

person1 is a : Person
person2 is a : HASH
Undefined name attribute at ./p2.pl line 28.
Use of uninitialized value in say at ./p2.pl line 43.
The name of person1 is: 
The age of person1 is: 20
于 2021-06-24T11:03:49.003 回答