Perl Array pop()用法及代码示例

Perl中的pop()函数返回作为参数传递给它的Array的最后一个元素，从数组中删除该值。请注意，传递给它的值必须显式为数组，而不是列表。

用法：

pop(Array)

返回值：
如果列表为空，则为undef，否则为数组中的最后一个元素。

范例1：

#!/usr/bin/perl -w 
  
# Defining an array of integers 
@array = (10, 20, 30, 40); 
  
# Calling the pop function 
$popped_element = pop(@array); 
  
# Printing the Popped element 
print "Popped element is $popped_element"; 
  
# Printing the resultant array 
print "\nResultant array after pop():\n@array";

输出：

Popped element is 40
Resultant array after pop():
10 20 30

范例2：

#!/usr/bin/perl -w 
  
# Defining an array of strings 
@array = ("Geeks", "For", "Geeks", "Best"); 
  
# Calling the pop function 
$popped_element = pop(@array); 
  
# Printing the Popped element 
print "Popped element is $popped_element"; 
  
# Printing the resultant array 
print "\nResultant array after pop():\n@array";

输出：

Popped element is Best
Resultant array after pop():
Geeks For Geeks

相关用法

注：本文由纯净天空筛选整理自Code_Mech大神的英文原创作品 Perl | Array pop() Function。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。