perl - 将 'shift' 分配给变量是什么意思？

Question

例子:

use strict;
my $file = shift;

open(IN, $file) || die "Unable to open $file\n";
open(OUT, ">$file.$$") or die $!;

my $file = shift 是怎么回事?

Answer 1

如果在主程序中使用，会shift (删除并返回)来自 @ARGV 的第一个值, 程序的参数列表。如果在子程序中使用，它将从 @_ 移动第一个值，子的参数列表。见 documentation了解更多信息。