在Perl中shift（）有什么作用？

以下几行可能意味着什么？

my $x = shift;

shift()是内置的Perl子例程，该例程将数组作为参数，然后返回并删除该数组中的第一项。通常的做法是通过shift调用获取传递到子例程中的所有参数。例如，假设您有一个foo接受三个参数的子程序。将这些参数分配给局部变量的一种方法是shift像这样：

sub foo() {
  my $x = shift;
  my $y = shift;
  my $z = shift;
  # do something
}

这里的困惑是，似乎shift并没有传递给数组作为参数。实际上，它是隐式传递给“默认”数组的，该数组@_位于子例程内部或子例程@ARGV外部。

的 shift函数从数组中删除第一个元素，然后返回它。该数组缩短了一个元素。

默认数组（如果未提供作为参数的数组）是@_在函数中，还是@ARGV在文件范围内。

因此，在这种情况下$x，要么被设置为第一个功能参数，要么被设置为第一个命令行参数。

在Perl中，如果您未明确指定参数，则许多方法都使用默认变量（$_和@_）。您的代码与：

my $x = shift @_;

正如PullMonkey先前指出的那样，在子例程中@_包含传递给该子例程的参数（如中所述perlsub）。shift将从中删除第一个参数值@_并将其存储在中$x，因此$_[0]现在将为您提供第二个参数值传递给子例程参数。

这通常是一个成语：$ x是分配给传递给子例程的第一个参数的局部变量。

my ($x) = @_;

可能更清晰（并且不会修改参数列表）。

用外行的话来说，从一个非常高级的角度来看，shift占据了数组的第一个元素（最左边的部分），而pop则占据了数组的最后一个元素（最右边的部分）。

我的@ array1 =（5,6,7,8,9）;
我的$ x = shift @ array1;
打印“ $ x \ n”；＃5
打印“ @ array1 \ n”；＃6 7 8 9

如果您在子例程中，则此行将shift打开@_（传入的参数）。
因此$x将是第一个项目popped从@_数组。

所以通常你会看到 $x = shift if @_;