Perl pop 函式

描述

此函式返回 ARRAY 的最後一個元素，並從陣列中刪除該值。請注意，ARRAY 必須顯式地是陣列，而不是列表。

如果省略 ARRAY，則它會彈出主程式中或在 eval STRING 或 BEGIN、CHECK、INIT 或 END 程式碼塊中呼叫的 @ARGV 中的最後一個值。否則，它會嘗試從子程式中的 @_ 陣列中彈出資訊。它是 push 的反義詞，當組合使用時，允許您實現“堆疊”。

請注意，應用pop後，陣列將縮短一個元素。

語法

以下是此函式的簡單語法：

pop ARRAY

pop

返回值

如果列表為空，則此函式返回 undef，否則返回陣列中的最後一個元素。

示例

以下示例程式碼展示了其基本用法：

#!/usr/bin/perl -w

@a = (1, 2, 3, 4);
print("pop() ", pop(@a), "   leaves  ",@a, "\n");

執行以上程式碼時，會產生以下結果：

pop() 4  leaves 123