作为数组散列分配

Question

我想了解下面的代码段;我只是不明白在第15行正在做什么。

它似乎是试图初始化/分配到%heading，但我只是不知道该语法是如何工作的。

$strings = [qw(city state country language code )]; 

my $file = "fname"; 
my $fn = $strings; 
my $c = 0; 

open(FILEH, "< ${file}.txt") or die($!); 

while (<FILEH>) { 

    my %heading; 
    chomp; 
    $c++; 

    @heading{ (@$fn, "One") } = split(/[|]/); # Line 15 

    if (defined($heading{"One"})) { 
     my $One = $heading{"One"}; 
    } 

Answer 1

这就是所谓的“切片”。将其分配给多个键一次：

@hash{ $key1, $key2 } = ($value1, $value2); 

是做

$hash{$key1} = $value1; 
$hash{$key2} = $value2; 

@$fn的较短和更快的方式是一样的@{ $fn }，即阵列解引用。