如何使用getopt处理主选项

听起来好像你在谈论非选项——基本的命令行参数。它们可以通过 @ARGV . 这个 Getopt 模块将不受干扰地向脚本传递常规参数:

use strict;
use warnings;
use Getopt::Long;

GetOptions (
    'foo'   => \my $foo,
    'bar=s' => \my $bar,
);

my @main_args = @ARGV;

# For example: perl script.pl --foo --bar XXX 1 2 3
# Produces:    foo=1  bar=XXX  main_args=1 2 3
print "foo=$foo  bar=$bar  main_args=@main_args\n";

如果你想把它写下来 - 而且它也不是可选的(如您所说),那么根据任何推理,它不是 选项 一个,但一个 论点 . 你应该通过

my $mainarg = shift

然后让getopt做它的事情。(你可能想检查一下 $#ARGV 然后验证是否给出了主要论点。)