关于函数返回hash ref

linfengfeiye

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

my $hashref = &testhash();

print Data:umper->Dump([$hashref]);

my %hash = %{$hashref};

print Data:umper->Dump([\%hash]);

$hash{'3'} = 3;

print Data:umper->Dump([$hashref]);

sub testhash
{
  my %tmphash = ();
  $tmphash{'1'} = 2;
  $tmphash{'1'} = 1;
  return \%tmphash;
}

上面这段代码为什么打印出来的都一样。

我想改变hash的值，不可以吗？

zhlong8

hash 是个复合结构，可以理解为一个 object 它是有内部属性的，对于 object 的操作要区分是用的引用还是值。

%hash = %{$hashref} 这里进行的是复制，\%hash 只是和 $hashref 看起来一样，但是已经指的不是同一个东西了，克隆人和本身还是有区别的

linfengfeiye

回复 2# zhlong8


    多谢，你说的我明白了。

    可是，如果我想改变里面的值，有办法吗？

zhlong8

linfengfeiye 发表于 2012-01-30 15:26
回复 2# zhlong8

$hashref->{'3'} = 3;
$$hashref{'3'} = 3;

上面两个是等价的，直接用 hashref 就可以了

linfengfeiye

回复 4# zhlong8

  这回彻底明白了，谢谢你的指点。