這個perl關聯數組有什麼問題？

Question

腳本甲

use strict; 

our %pre_pkg_configs; 

$pre_pkg_configs{locDbList}={qw(default default_test)}; 

腳本乙

//負載腳本甲

my @locDbNames =(); 

foreach my $dbName ($pre_pkg_configs{"locDbList"}){ 
    print $dbName; 
    push(@locDbNames,$dbName); 
} 

輸出

HASH(0x119b368) 

我期待值：默認default_test

Answer 1

{ ... }創建對散列的引用（您正在調用關聯數組）。

如果打印參考，所得到的輸出喜歡HASH(0x119b368)

這聽起來像你想的數組，因此用一個數組引用，而不是一個hashref：

$pre_pkg_configs{locDbList}=[ qw(default default_test) ]; 

然後，在印刷時，你需要將arrayref轉換爲數組：

foreach my $dbName (@{$pre_pkg_configs{"locDbList"}}){