如何将命令行参数传递给Perl程序？

#!/usr/bin/perl

# 获取参数数量
$num_args = @ARGV;
print "Number of arguments: $num_args\n";

# 遍历参数
foreach $arg (@ARGV) {
    print "Argument: $arg\n";
}

# 通过索引访问参数
$first_arg = $ARGV[0];
$second_arg = $ARGV[1];
print "First argument: $first_arg\n";
print "Second argument: $second_arg\n";

perl script.pl arg1 arg2 arg3

Number of arguments: 3
Argument: arg1
Argument: arg2
Argument: arg3
First argument: arg1
Second argument: arg2

#!/usr/bin/perl

use Getopt::Long;

# 定义命令行参数
my $verbose = 0;
my $file = "";

# 解析命令行参数
GetOptions(
    "verbose" => \$verbose,
    "file=s" => \$file
);

# 输出解析结果
print "Verbose: $verbose\n";
print "File: $file\n";

perl script.pl --verbose --file=myfile.txt

Verbose: 1
File: myfile.txt