如何在Perl中使用Getopt::Long库获取哈希数组形式的命令行参数？

我来给你梳理一下怎么用Perl的Getopt::Long模块实现这个需求——动态获取多个系统的参数，每个系统对应一个哈希，最终组成哈希数组。其实有两种方案，分别对应不同的命令行使用习惯，咱们一个个来看：

方案1：适配你给出的命令行格式 #

你给出的命令行是用--systems作为总选项，后面跟多组key=value（每组对应一个系统），比如：

perl testing.pl --systems id=sys_1 ip_address=127.0.0.1 id=sys_2 ip_address=127.0.0.2

这种情况下，我们需要用回调函数来动态处理每个参数，判断什么时候开始一个新的系统。这里假设id是每个系统的唯一起始标识（遇到新的id=就代表要开始记录下一个系统）：

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

# 存储最终的哈希数组
my @systems;
# 临时存储当前正在构建的系统参数
my %current_system;

GetOptions(
    # 对--systems的每个参数执行回调
    'systems=s' => sub {
        my ($opt_name, $value) = @_;
        # 拆分key和value，注意用2作为split的第三个参数，避免value里的=号被拆分
        my ($key, $val) = split /=/, $value, 2;
        
        # 如果遇到新的id，且当前已经有未保存的系统参数，就先把当前系统存入数组
        if ($key eq 'id' && %current_system) {
            push @systems, { %current_system };
            %current_system = (); # 重置临时哈希
        }
        
        # 将当前键值对加入临时哈希
        $current_system{$key} = $val;
    },
);

# 别忘了把最后一个系统存入数组
push @systems, { %current_system } if %current_system;

# 测试输出结果
use Data::Dumper;
print Dumper(\@systems);

运行上面的脚本，你会得到一个结构清晰的哈希数组，每个元素对应一个系统的参数。

方案2：更清晰的命令行格式（推荐） #

如果可以调整命令行的写法，我更推荐用单数的--system选项，每个系统单独用一个--system来标识，比如：

perl testing.pl --system id=sys_1 ip_address=127.0.0.1 --system id=sys_2 ip_address=127.0.0.2

这种方式的代码实现更简洁，Getopt::Long直接支持把重复的--system选项解析成哈希数组：

use strict;
use warnings;
use Getopt::Long;
use Data::Dumper;

my @systems;

# 用s%表示每个--system接受一组键值对，重复的选项会自动存入数组
GetOptions(
    'system=s%' => \@systems,
);

# 测试输出
print Dumper(\@systems);

这个方案的优势是逻辑更直观，不容易出错，尤其是当系统的子参数不固定（比如有的系统有port，有的没有）时，兼容性更好。

注意事项 #

• 拆分key=value时，一定要用split /=/, $value, 2，第三个参数2确保只会拆分第一个=号，避免如果value本身包含=号（比如url=http://example.com?a=b）时出现解析错误。
• 如果用方案1，要确保每个系统的起始标识（比如id）是唯一且固定的，否则无法正确分组。如果没有固定的起始标识，方案2会是更稳妥的选择。

内容的提问来源于stack exchange，提问作者user8757355