3

我下面第 9 行的代码创建了哈希的本地副本。对 %d 的任何更改都不会提供对全局 %h 变量的更改(第 5 行)。我必须使用参考(第 8 行)来提供对 %h 的更改。

有没有办法在不创建本地副本的情况下取消引用子中的哈希?我在问,因为我有许多引用的复杂记录,并且通过取消引用在它周围导航会容易得多。

  1 #!/usr/bin/perl -w
  2 use strict;
  3 use warnings;
  4 
  5 my %h;
  6 sub a {
  7 
  8     my $href = shift;
  9     my(%d) = %{$href};   # this will make a copy of global %h
 10     
 11     $$href{1}=2;     # this will make a change in global %h
 12     $d{2}=2;         # this will not a change in global %h
 13 }   
 14 a(\%h);
 15 print scalar (keys %h) . "\n";

----------------

感谢您的回复。

问题是我可以在 sub 中对 %h 进行某种“别名/绑定”吗?我想用 %d 更改子中 %h 的上下文。每当我创建 %d 时,他都会制作 %h 的本地副本 - 有什么办法可以避免这种情况,还是我必须一直使用引用?

----------------

再来一次 :) 我知道 $href 的工作原理。我阅读了教程/手册/文档等。我没有在那里找到答案 - 我认为这是不可能的,因为它没有写在那里,但谁知道。

我想完成这样的行为:

  6 sub a {
  7     $h{"1"}=2;
  8 }

这相当于:

  6 sub a {
  8      my $href = shift;
  11     $$href{1}=2;     # this will make a change in global %h
  11     $href->{1}=2;    # this will make a change in global %h

现在如何在 %d 的帮助下做到这一点 - 这真的可能吗?

6 sub a {
7        my %d = XXXXXXXXX
.. }

我应该在 XXXXXXXXX 下放置什么来指向 %h 而不创建本地副本?

4

4 回答 4

6

要创建该值的本地别名,您需要使用 Perl 的包变量,可以使用 typeglob 语法对其进行别名(并local确定别名的范围):

#!/usr/bin/perl -w
use strict;
use warnings;

my %h;

sub a {
    my $href = shift;

    our %alias; # create the package variable (for strict)

    local *alias = $href;
        # here we tell perl to install the hashref into the typeglob 'alias'
        # perl will automatically put the hashref into the HASH slot of
        # the glob which makes %alias refer to the passed in hash.
        # local is used to limit the change to the current dynamic scope.
        # effectively it is doing:  *{alias}{HASH} = $href

    $$href{1}=2;     # this will make a change in global %h
    $alias{2}=2;     # this will also make a change in global %h
}
a(\%h);
print scalar (keys %h) . "\n";  # prints 2

这是一种相当先进的技术,因此请务必阅读 Perl 文档localtypeglobs以便您准确了解正在发生的事情(特别是,在a之后从子例程中调用的任何 subslocal也将具有%alias作用域,因为local它表示动态作用域。返回时本地化将结束a。)

如果您可以安装Data::Alias或安装其他别名模块之一,CPAN则可以避免包变量并创建词法别名。上面的方法是在没有额外模块的情况下完成它的唯一方法。

于 2010-06-04T14:54:02.767 回答
2

使用哈希引用的两种方式:

  1. 你自己正在使用的一个

    $$href{'key2'} = "key2";
    
  2. 上面指出:

    $href->{'key1'} = "key1";
    

http://perldoc.perl.org/perlreftut.html

于 2010-06-04T08:46:25.013 回答
1

这对你有帮助吗

$href->{1} = 2;
print scalars (keys %{$href});

?

于 2010-06-04T08:29:27.420 回答
0

以下代码显示了如何使用箭头运算符取消引用(是的,不创建局部变量)

阅读内容以获取有关取消引用和可能的不同类型的取消引用的教程。

use warnings;
use Data::Dumper::Simple;

my %h;
sub a {
    my $href = shift;

    #dereference using the arrow operator - *preferred*
    $href->{name} = "John"; 

}

a(\%h); #Passing the reference of the hash
print Dumper(%h);

为什么首先需要将全局哈希作为参数传递给子例程?

  1. 避免使用全局变量。
  2. 最好不要在分配任何变量后更改它们的状态。
于 2010-06-04T10:47:42.167 回答