Perl shift()用法及代码示例

Perl中的shift()函数返回数组中的第一个值，将其删除并将数组列表中的元素向左移动一个。 Shift操作会删除pop等值，但它是从数组的开头而不是pop的结尾获取的。如果数组为空，则此函数返回undef，否则返回数组的第一个元素。

用法： shift(Array)

返回值：如果数组为空，则为-1，否则为数组的第一个元素

示例1:

#!/usr/bin/perl -w 
  
# Defining Array to be shifted 
@array1 = ("Geeks", "For", "Geeks"); 
  
# Original Array 
print "Original Array: @array1\n"; 
  
# Performing the shift operation 
$shifted_element = shift(@array1); 
  
# Printing the shifted element 
print "Shifted element: $shifted_element\n"; 
  
# Updated Array 
print "Updated Array: @array1";

输出：

Original Array: Geeks For Geeks
Shifted element: Geeks
Updated Array: For Geeks

示例2:

#!/usr/bin/perl -w 
  
# Program to move first element  
# of an array to the end 
  
# Defining Array to be shifted 
@array1 = ("Geeks", "For", "Geeks"); 
  
# Original Array 
print "Original Array: @array1\n"; 
  
# Performing the shift operation 
$shifted_element = shift(@array1); 
  
# Placing First element in the end 
@array1[3] = $shifted_element; 
  
# Updated Array 
print "Updated Array: @array1";

输出：

Original Array: Geeks For Geeks
Updated Array: For Geeks  Geeks

相关用法

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