Question

我正在尝试使用切片初始化哈希：

use warnings;
use strict;
use Data::Dump qw(dump);

my %h;
my $a=['a','b'];

@h{@$a}=(1)x@$a;
dump(%h);

这很好，但是如果我尝试做一个子哈希，例如%h{test}

@h{test}{@$a}=(1)x@$a;

我收到错误：

Scalar value @h{test} better written as $h{test} at ./p.pl line 14.
syntax error at ./p.pl line 14, near "}{"
Execution of ./p.pl aborted due to compilation errors.

Answer 1

您应该使用@{ $h{test} }{ @$a }=(1)x@$a;，因为哈希包含哈希引用，而不是哈希。

use warnings;
use strict;
use Data::Dumper;

my %h;
my $a=['a','b'];

@{ $h{test} }{ @$a }=(1)x@$a;
print Dumper(\%h);

输出是：

$VAR1 = {
          'test' => {
                      'a' => 1,
                      'b' => 1
                    }
        };

另请参阅：Perl: Hash ref accessing array of keys

Answer 2

编译器会看到＆＃39; @＆＃39;并且想到自己＆＃39; array＆＃39;然后看到＆＃39; {＆＃39;并说等等，什么？这是一个哈希索引指标。游戏胜过男人。＆＃39;所以把@变成$。

使用Perl中的切片初始化一组哈希键

2 个答案: