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。非經特殊聲明，原始代碼版權歸原作者所有，本譯文未經允許或授權，請勿轉載或複製。