Perl - 通過數組值的散列進行迭代

Question

我有一個數據結構，我想要迭代，然後推送到另一個數組進行臨時存儲。

散列中的每個視圖都有一個fieldset數組。

1 = { 
    fieldset => ('package', 'payment'), 
}, 

2 => { 
    fieldset => ('address, 'review'), 
} 
3 => { 
    fieldset => ('confirm'), 
} 

等

我想抓住所有這些值，和逗號將它們分開到另一個陣列，這樣我就可以看到哪些步驟的客戶已經離開。

，如果我嘗試

@array = $value->{fieldsets} 

只抓住第一個項目。我如何抓住他們所有人？

讓我知道如果我沒有足夠的深度解釋它。

Answer 1

哈希值包含標量。

1 = { 
    fieldset => ('package', 'payment'), 
}, 

將會拼：

1 = { 
    fieldset => 'package', 
    payment => undef, 
}, 

你想：

​​

若要存儲數組引用標量，並獲得通過取消引用的字段集的內容重點：

@array = @{$value->{fieldset}}