Perl pop 函数

• 

  描述

  pop 此函数返回ARRAY的最后一个元素，从数组中删除该值。请注意，ARRAY必须明确地是数组，而不是列表。如果省略了ARRAY，它将在主程序中或在eval STRING或BEGIN，CHECK，INIT或END块中调用时，从@ARGV中弹出最后一个值。否则，它将尝试从子例程中的@_数组中弹出信息。它与push相反，当push结合使用时，它允许您实现“堆栈”。请注意，应用pop后，数组将缩短一个元素。
• 

  句法

  以下是此函数的简单语法-

  
  pop ARRAY
  
  pop
  

• 

  返回值

  如果列表为空，则此函数返回undef，否则返回数组中的最后一个元素。
• 

  示例

  以下是显示其基本用法的示例代码-

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

  尝试一下

  执行结果：

  
  pop() 4  leaves 123