Perl 中的 shift() 有何作用？

Question

下面这行可能意味着什么？

my $x = shift;

Answer 1

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

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

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

Answer 2

shift 函数从数组中删除第一个元素并返回它。 数组缩短了一个元素。

如果您在函数中，则默认数组（如果没有作为参数给出）为 @_；如果您在文件范围内，则默认数组为 @ARGV。

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

Answer 3

在 Perl 中，如果您没有显式指定参数，许多方法都会使用默认变量（$_ 和 @_）。 您的代码与以下内容相同：

my $x = shift @_;

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

Answer 4

这通常是这样的习惯用法：$x 是分配给传递给子例程的第一个参数的局部变量。

my ($x) = @_;

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

Answer 5

通俗地说，从非常高层次的角度来看，shift 取数组的第一个元素（最左边的部分），而相反的是 pop 获取数组的最后一个元素（最右边的部分）。

my @array1=(5,6,7,8,9);
my $x = shift @array1;
print "$x\n"; # 5
print "@array1\n"; # 6 7 8 9

Answer 6

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

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

Answer 7

阅读 perldoc -f shift 的输出后，您还有疑问吗？

（这不是一个问题；这是一个答案；-)）

另一个推荐阅读的内容是 man perlbook。

Perl 从 @_ 中“移出”第一个元素，并将其返回。
因此，在删除 @_ 的第一个元素后，$x 被分配给它。
@_ 本身就是例程参数。

因此，这三个是常见的替代方案（但是并不完全相同）：

my $a = shift;
my $b = shift;
my $c = shift;

my ($a, $b, $c) = @_;

my $a = $_[0];
my $b = $_[1];
my $c = $_[2];

只有第一个变体修改 @_。