Perl shift 函数

• 

  描述

  shift 此函数返回数组中的第一个值，将其删除并将数组列表的元素向左移动一个。如果未指定ARRAY，则在子例程中移动@_数组，否则在@ARGV中移动。shift从本质上讲与pop相同，只是从数组的开头而不是结尾获取值。
• 

  句法

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

  
  shift ( [ARRAY] )
  
  shift
  

• 

  返回值

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

  示例

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

   
  @array = (1..5);
  while ($element = shift(@array)) {
     print("$element - ");
  }
  print("The End\n");
  

  尝试一下

  执行以上代码后，将产生以下结果--

  
  1 - 2 - 3 - 4 - 5 - The End