Perl GetOpt::带有可选参数的长多个参数

这不容易做到 Getopt::Long 直接,但如果您可以稍微更改参数结构,例如

./script.pl --disk /abc --disk /mno=nfs -d /xyz=nfs

…以下内容将带您到达您想要的位置(请注意,缺少的类型将显示为空字符串,而不是 undef ):

use warnings;
use strict;

use Data::Dumper;
use Getopt::Long;

my %disks;

GetOptions(
    'd|disk:s' => \%disks, # this allows both -d and --disk to work
);

print Dumper \%disks;

输出:

$VAR1 = {
          '/abc' => '',
          '/mno' => 'nfs',
          '/xyz' => 'nfs'
        };

从 docs :

When applied to the following command line:
    arg1 --width=72 arg2 --width=60 arg3

This will call process("arg1") while $width is 80 , process("arg2") while $width is 72 , and process("arg3") while $width is 60.

编辑 :根据要求添加MWE。

use strict;
use warnings;
use Getopt::Long qw(GetOptions :config permute);

my %mount_points;
my $filesystem;

sub process_filesystem_type($) {
    push @{$mount_points{$filesystem}}, $_[0];
}

GetOptions('t=s' => \$filesystem, '<>' => \&process_filesystem_type);

for my $fs (sort keys %mount_points) {
    print "$fs : ", join(',', @{$mount_points{$fs}}), "\n";
}

./test-t nfs/abc/bcd-t ext4/foo-t ntfs/bar/baz

分机4:/foo

nfs:/abc,/bcd

ntfs:/bar,/baz

请注意,输入按文件系统类型排序,然后按装入点排序。这与OP的解决方案相反。