這段代碼片段究竟是什麼？

Question

這段代碼片段究竟是什麼？

... 
method go() { 
    my %args; 
    while (ref($_[0]) eq 'HASH') { 
     %args = (%args, %{ shift(@_) }); 
    } 
    .... 
} 

從駝鹿基於包裝中取出...
雖然第一個參數是hashref，怎麼辦呢？ （與移出hashref？） 我明白移（@_）根本不明白什麼意思

%hash = (%hash, %{$hashref}); 

Answer 1

雖然@_的第一個元素是一個散列的引用，即哈希引用的內容添加到散列%args並從@_中刪除引用。換句話說，將所有初始散列參數合併到一個散列中。

%a = (%a, %b)對於一些對散列%a和%b的類似於@a = (@a, @b)對於一些對陣列@a和@b，接合@a和@b成單個列表，並分配所述結果返回給@a的。對於陣列來說，當然這只是一個簡寫push @a, @b。