我无法理解哈希引用并更改哈希值,而不是返回它.我想编写一个子例程,它将从哈希返回一个值并修改哈希值.我在编写代码时遇到了一些问题.所以,我编写了以下基本代码来理解修改哈希的位置.
#!/usr/local/bin/perl
#Check hash and array references
#Author: Sidartha Karna
use warnings;
use strict;
use Data::Dumper;
sub checkHashRef{
my ($hashRef,$arrVal) = @_;
my %hashDeref = %{$hashRef};
$hashDeref{'check'} = 2;
push(@{$arrVal},3);
print "There:" ;
print Dumper $hashRef;
print Dumper %hashDeref;
print Dumper $arrVal
}
my %hashVal = ('check',1);
my @arrVal = (1,2);
checkHashRef(\%hashVal,\@arrVal);
print "here\n";
print Dumper %hashVal;
print Dumper @arrVal;
观察到的输出是：
There:$VAR1 = {
'check' => 1
};
$VAR1 = 'check';
$VAR2 = 2;
$VAR1 = [
1,2,3
];
here
$VAR1 = 'check';
$VAR2 = 1;
$VAR1 = 1;
$VAR2 = 2;
$VAR3 = 3;
解决方法
这是％hashVal的(浅)副本：
my %hashDeref = %{$hashRef};
hash-ref $hashRef仍指向％hashVal但％hashDeref不指向,它只是一个副本.如果要在就地修改传递的hash-ref,那么使用传递的hash-ref：
sub checkHashRef{
my ($hashRef,$arrVal) = @_;
$hashRef->{'check'} = 2;
#...
这将使您的更改保留在％hashVal中.在数组中,您永远不会复制,只需将其取消引用即可：
push(@{$arrVal},3);
并且$arrVal的更改显示在@arrVal中.