由陣列確定的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變量。