Perl哈希定制化取值打印问题：避免重复输出实现多场景展示

首先，你当前的哈希结构存储的是每个区域对应的原始行字符串，这会导致后续拆分站点和层级时容易出现重复。我们需要先调整哈希的结构，改成嵌套哈希+数组的形式，让数据组织更清晰：%hash 的键是区域（region），值是另一个哈希，这个子哈希的键是站点（site），值是该站点对应的层级（layer）数组。这样就能自动避免重复的站点和层级。

第一步：重构哈希结构 #

先把读取数据的代码改成这样（核心部分）：

use strict;
use warnings;

my %hash;
while (<$fh>) {
    chomp; # 去掉换行符
    my ($region, $site, $layer) = split;
    # 确保同一个站点的层级不会重复添加，若确定原始数据无重复层级可省略判断
    push @{$hash{$region}{$site}}, $layer unless grep { $_ eq $layer } @{$hash{$region}{$site}};
}

场景1：按站点展示对应层级 #

如果你的站点是全局唯一的（不会在多个区域出现同名站点），可以这样实现：

# 先构建站点到层级的映射哈希
my %site_layers;
foreach my $region (keys %hash) {
    foreach my $site (keys %{$hash{$region}}) {
        $site_layers{$site} = $hash{$region}{$site};
    }
}

# 按站点打印结果
foreach my $site (sort keys %site_layers) {
    my $layers = join(' ', @{$site_layers{$site}});
    print "$site has layers: $layers\n";
}

对应测试数据的输出：

belair has layers: layer2 layer3
Monte has layers: layer2
Vista has layers: layer3

如果站点可能在多区域重名，想要区分区域的话，直接遍历嵌套哈希即可：

foreach my $region (keys %hash) {
    foreach my $site (keys %{$hash{$region}}) {
        my $layers = join(' ', @{$hash{$region}{$site}});
        print "$site (in $region) has layers: $layers\n";
    }
}

场景2：按区域展示站点及对应层级 #

用嵌套哈希直接遍历就能避免重复，这里提供两种贴近你需求的输出格式：

格式1：每个站点单独展示层级

foreach my $region (sort keys %hash) {
    my @site_details;
    foreach my $site (keys %{$hash{$region}}) {
        my $layers = join(' ', @{$hash{$region}{$site}});
        push @site_details, "$site (layers: $layers)";
    }
    my $site_info = join(' and ', @site_details);
    print "$region has sites: $site_info\n";
}

输出：

North has sites: belair (layers: layer2 layer3)
East has sites: Monte (layers: layer2) and Vista (layers: layer3)

格式2：统一列出所有站点和层级

foreach my $region (sort keys %hash) {
    my @sites = keys %{$hash{$region}};
    my $site_list = join(' and ', @sites);
    
    # 收集当前区域的所有层级
    my @all_layers;
    foreach my $site (@sites) {
        push @all_layers, @{$hash{$region}{$site}};
    }
    my $layer_list = join(' ', @all_layers);
    
    print "$region has sites: $site_list and layers: $layer_list\n";
}

输出：

North has sites: belair and layers: layer2 layer3
East has sites: Monte and Vista and layers: layer2 layer3

为什么之前的方法会出现重复？ #

你原来的哈希结构中，$hash{$region}对应的是多条包含重复站点的字符串（比如North对应两条"North belair layer2"和"North belair layer3"），遍历这些值时会重复处理同一个站点，导致输出重复。改用嵌套哈希后，每个站点在对应区域下只存一次，层级也按站点组织，自然就避免了重复问题。

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