Question

我在一个Perl脚本中遇到了一个奇怪的问题。我有一个Perl对象。在某个范围内，我希望更改其中一个对象属性，但我希望在该属性离开范围后将其恢复为旧值。

示例：

setInterval

有没有办法实现这样的目标？

Answer 1

这可能没有您要求的那么多封装，但您可以local - ize哈希的属性。这会输出"CarlLennyCarl"

sub Object::new { bless { _name => $_[1] }, $_[0] } }
sub Object::name { $_[0]->{_name} }

my $obj = Object->new("Carl");
print $obj->name;
{
    local $obj->{_name} = "Lenny";
    print $obj->name;
}
print $obj->name;

你也可以local - 整个方法。这也会输出"CarlLennyCarl"：

sub Object::new { bless { _name => $_[1] }, $_[0] } }
sub Object::name { $_[0]->{_name} }

my $obj = Object->new("Carl");
print $obj->name;
{
    local *Object::name = sub { "Lenny" };
    print $obj->name;
}
print $obj->name;

Answer 2

我完全误解了那里发生的事情。你不能在子程序调用上使用本地，这就是你遇到的问题。

让我们使用我所知道的代码示例，并尝试解释eval实际上在做什么。

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Cwd;

print getcwd() . "\n";

eval{
        local @INC = ('/tmp');
        require 'test.pl';

        print 'local: ' . Dumper(\@INC);
};
print Dumper(\@INC);

这是有效的，因为我正在修改一个变量，而不是调用另一个子程序来修改我的变量。

为了使其按预期工作，您必须创建对象的深层副本以在本地范围或某种类型的内容中进行修改。（我很确定首先发生的是什么）

local为给定的括号，eval，OR文件（那里的问题）创建范围

如果你能够在没有方法调用的情况下直接访问元素（不好的做法恕我直言），你可能能够在对象中本地化该元素的范围。

示例：

name.pm：

package name;
use strict;
use warnings;

{

    sub new {
        my ($class,$name) = @_;
        my $self = bless {}, $class;
        $self->{'name'} = $name if defined $name;
        return $self;
    }

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

index.pl：

#!/usr/bin/perl -w
use strict;
use warnings FATAL => 'all';

use name;

my $obj = name->new('test');

print $obj->{'name'} . "\n";

{
    local $obj->{'name'} = 'test2';

    print $obj->{'name'} . "\n";
}

print $obj->{'name'} . "\n";

在Perl中本地更改类的属性

2 个答案: