perl基础知识 - SHIFT功能如何工作

我试图理解这个shift功能的例子.我记得读过它应该提取(删除并返回)第一个值,但是当试图执行这段代码时,我可以看到它返回数组中的所有元素:

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

输出为:

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

任何解释都非常感谢!

资料来源:TutorialsPoint

它的工作方式相同 - 删除并返回第一个值.你得到所有的价值因为while loop.

要以简单的方式理解,请while loop从代码中删除.

my @array = (1..5);
my $element = shift(@array);
print $element, "\n";

输出:

1