无法在 perl 中打印这种复杂数据结构的值

Question

问题在代码中解释为 cmets：

我有以下一段代码，我试图在其中创建一个散列，其中键本身是对其他数组的引用。

my @arr1=(1,2,3,4,5,6,7,8,9,10);
my @arr2=(1001,1002,1003);



$FILES_1=\@arr1;
$num1=2;
$FILES_2=\@arr2;
$num2=4;

@FILES=($FILES_1, $FILES_2);
@NUMS=($num1,$num2);
    fun (\@FILES,\@NUMS);





sub fun{

    my ($rFILES,$rNUMS) = @_;

    print "\n --${$rFILES}[0]->[2]  \n "; # This is same as below
    print "\n --$rFILES->[0]->[2]  \n "; # This is same as above

    my %hash=();

    $hash{$rFILES->[0]} = $rNUMS->[0];   

    my $test = $rFILES->[0];
    print "\nTEST : $test->[1]";

    my @key = keys %hash;
    print "\nKey 1 = $key[0]";   # This prints scalar value as below
    print "\ntest  = $test ";   # This prints scalar value as above

    print "\nKey 1->[1] = ${$key[0]}->[1]";  #PROBLEM : THIS DOESNT PRINT SAME AS BELOW
    print "\ntest->[1]  = $test->[1] ";  #THIS PRINTS AS EXPECTED.
}

输出：

 --3

 --3

TEST : 2
Key 1 = ARRAY(0x1bbb540)
test  = ARRAY(0x1bbb540)
Key 1->[1] =
test->[1]  = 2 

我们不应该保留哈希的键作为对某个数组的引用吗？为什么不打印值“2”？

Answer 1

哈希键始终是字符串，您不能在其中存储引用。我也想不出你想要这个的理由。

您真的应该始终使用use strict 和use warnings。如果你添加了这些并用my 正确声明了你的变量，你会得到一个警告：

Can't use string ("ARRAY(0x85e628)") as a SCALAR ref while "strict refs" in use

您正在使用的语法：

${$key[0]}

说$key[0] 是对标量的引用。不是，它是一个带有引用地址的字符串，因为您不能将引用用作哈希键，它们会变成字符串。

更新：

你可能想要这样的东西：

my @filegroups = (
    { number => 1, files => ['file1','file2'] },
    { number => 2, files => ['file3'] },
);

访问为：

foreach my $filegroup ( @$filegroups ) {
    print "my number is $filegroup->{number}\n";
    print "   and I have ".scalar( @{ $filegroup->{ files } } )." files\n";
}

如果您需要额外的速度来按组号访问结构（除非您有数百个组或数千个访问，否则不要打扰），索引它们：

my %filegroupindexes = map { $_->{ number } => $_ } values @$filegroups;

然后你可以这样进入群：

print "there are ".scalar( @{ $filegroupindexes{ 1 }->{ files } } )." files in group 1\n";

最后提示，对于打印复杂的数据结构，Data::Printer 是我的最爱：

use Data::Printer colored => 1;
p( @filegroups );

Answer 2

如果要将引用用作哈希键，则需要 Tie::RefHash。