如何使用 Perl 获取命令行参数？311

在 Perl 中，命令行参数是通过 ARGV 数组访问的。ARGV 数组中存储着所有传递给脚本的参数，第一个元素 $ARGV[0] 是脚本的名称，而后续元素则包含实际的参数。

例如，以下脚本将打印第一个命令行参数：```perl
#!/usr/bin/perl
print $ARGV[0], "";
```

要打印所有参数，可以使用 foreach 循环：```perl
#!/usr/bin/perl
foreach $arg (@ARGV) {
print "$arg";
}
```

也可以使用 shift 函数从 ARGV 数组中删除第一个元素并将其分配给一个变量：```perl
#!/usr/bin/perl
my $first_arg = shift @ARGV;
print "The first argument is: $first_arg";
```

@ARGV 数组始终包含所有传递给脚本的参数，即使脚本已经从数组中删除了某些元素。要重置 ARGV 数组，可以使用以下代码：```perl
#!/usr/bin/perl
# Reset @ARGV to its original value
@ARGV = @ARGV;
```

以下是一些使用 ARGV 数组的常见示例：* 从命令行读取文件名并将其作为输入文件打开：
```perl
#!/usr/bin/perl
# Get the filename from the command line
my $filename = shift @ARGV;
# Open the file for reading
open(my $fh, '

2024-12-11

上一篇：perl高级编程的进阶指南

下一篇：Perl 中处理 GZ 文件的指南