由阵列确定的Perl哈希键

Question

我有一个数组，我正在从它做一个哈希实例。 例如，如果数组是：

@folders=(temp,usr,bin); 

然后我要填写的哈希：

$the_path{$folders[0]}{$folders[1]}{$folders[2]}="somevalue"; 

但是，如果数组是唯一的：

@folders=(bin); 

的话，我想的路径成为：

$the_path{$folders[0]}="somevalue"; 

问题是我事先不知道阵列要多长时间，并且如果该解决方案的语句严重缩放，我真的很想避免使x。

我该怎么做？

Answer 1

首先，这不是你如何在Perl中定义数组。你可能要说

my @folders = ('temp', 'usr', 'bin'); 

有一个老把戏从列表中进行嵌套哈希键：

my %the_path; 
my $tmp = \%the_path; 
foreach my $item(@folders) { 
    $tmp->{$item} = { }; 
    $tmp = $tmp->{$item}; 
} 

这将导致如下所示的结构：

$VAR1 = { 
      'temp' => { 
         'usr' => { 
           'bin' => {} 
           } 
        } 
     }; 

如果你想用字符串替换最底层的空hashref，你可以跟踪循环内的count变量。