在嵌套散列中查找键然后创建所有键的树

Question

我搜索了如何做到这一点，在谷歌和stackoverflow，我现在在一个点，我相当卡住，无法做到这一点这个。

我有一个称为BigHash作为输入哈希繁重嵌套散列，我有一个变更列表，这也是哈希有一些键和值。

我想在BigHash中查找更改列表中的每个键，并检查值是否匹配，如果不匹配，则尝试创建该键的所有祖先的列表作为字符串用;分开。

这是我的更改列表和预期输出。

这是我的改变列表：

my $changelist = { 
'ReqPending' => '9', 
'DopplerEnable' => 'true', 
'BSColorCode' => '7' 
} 

这是我期望的输出：

（注输出字符串中以逗号分隔的数组中的字符串中的每个元素是实际的祖先。在与变更表该密钥的值链接变更列表关键的树）

@Output = "Ctrl;SuperCel;Timers;ReqPending=9", "Phy;CELL;SystemCommon;Config;DopplerEnable=true", "Phy;CELL;SystemCommon;PhysicalCell;BSColorCode=7" 

这是我的大哈希：

（散列是通过将一个XML文件转换成一个散列得到的，它嵌套数组和哈希）

my $Bighash= { 
'Ctrl' => [ 
    { 
     'SuperCel' => [ 
        { 
        'Config' => [ 
             { 
             'Retry' => '3', 
             'Context' => '3' 
             } 
            ], 
        'Timers' => [ 
             { 
             'ReqPending' => '2', 
             'RelocationReqPending' => '2' 
             } 
            ] 
        } 
      ] 
    } 
    ], 
    'xmlns' => 'http://www.somewebsite.com/oam', 
    'Phy' => [ 
     { 
     'CELL' => [ 
       { 
       'SystemCommon' => [ 
         { 
         'Config' => [ 
             { 
             'SrsOn' => 'true', 
             'WindowLength' => '2', 
             'DopplerEnable' => 'false', 
             'WindowSize' => '3', 
             } 
            ], 
         'PhysicalCellID' => '0', 
         'ColorConfig' => [ 
             { 
             'AckNackFeedback' => '1', 
             'frameAssignment' => '1', 
             'SframePattern' => '7' 
             } 
            ], 
         'Ports' => '2', 
         'AntennaCount' => '2', 
         'NumberOfConnections' => '8', 
         'PhysicalCell' => [ 
               { 
                'NwColorCode' => '0', 
                'BSColorCode' => '0' 
               } 
               ], 
         'CellIdentity' => '0', 
         'IdentityGroup' => '0', 
         'OverrideEnableFlag' => 'false' 
         } 
        ], 
       'Dedicated' => [ 
        { 
         'SoundingRs' => [ 
          { 
           'ConfigDedicatedRel10' => [ 
            { 
             'Format' => [ 
              { 
              'DomainPosition' => '0', 
              'TransmissionComb' => '0', 
              'Shift' => '1', 
              'Port' => '1', 
              'Bandwidth' => '0' 
              } 
             ], 
            } 
           ] 
          } 
         ], 
         'Numerology' => [ 
          { 
           'profileNumber' => '0' 
          } 
         ]              
        } 
       ] 
      } 
     ] 
    } 
] 

}

你能帮助我吗？

我已经写了类似这样的东西，但它不正确，我没有得到它。

sub recursive { 
    $hash = shift; 

    foreach my $key1 (keys %$hash) { 
    if (ref($hash->{$key1}) eq "HASH") { 
     if ($var ne "") { 
     $var = join(";", $var, $key1); 
     } 
     else { 
     $var = $key1; 
     } 
     recursive($hash->{$key1}); 
    } 
    elsif (ref($hash->{$key1}) eq "ARRAY") { 
     $tem = @{ $hash->{$key1} }; 
     if ($var ne "") { 
     $var = join(";", $var, $key1); 
     } 
     else { 
     $var = $key1; 
     } 
     foreach $item (@{ $hash->{$key1} }) { 
     if (ref($item) eq "HASH") { 
      #$var = join (";",$var,$key1); 
      recursive($item); 
     } 
     else { 
     } 
     } 
    } 
    else { 
     if ($var ne "") { 
     $temp = $var; 
     $var = join(";", $var, $key1); 
     print $var. "\n"; 
     #$var=$temp; 
     } 
     else { 
     $var = $key1; 
     undef($var); 
     } 
    } 
    } 
} 

recursive($BigHash); 

Answer 1

sub find_missing_changes { 
    my $changelist = shift; 
    my @output; 

    local *_helper = sub { 
     my $data = pop; 

     my $reftype = ref($data) 
     or return; 

     if ($reftype eq 'ARRAY') { 
     for my $i (0..$#$data) { 
      _helper(@_, $i, $data->[$i]); 
     } 
     } 

     elsif ($reftype eq 'HASH') { 
     for my $k (keys(%$data)) { 
      if (exists($changelist->{$k}) && $data->{$k} ne $changelist->{$k}) { 
       push @output, join(';', @_, $k)."=".$changelist->{$k}; 
      } 

      _helper(@_, $k, $data->{$k}); 
     } 
     } 
    }; 

    _helper(@_); 

    return @output; 
} 

print "$_\n" for find_missing_changes($changelist, $Bighash); 

输出：

Phy;0;CELL;0;SystemCommon;0;Config;0;DopplerEnable=true 
Phy;0;CELL;0;SystemCommon;0;PhysicalCell;0;BSColorCode=7 
Ctrl;0;SuperCel;0;Timers;0;ReqPending=9 

如果不需要数组下标，你不应该告诉XMLin可以有这些元素中的一种以上发生。

Answer 2

这解析XML文件，执行在%$changelist的变化，并保存更改：

use XML::LibXML qw(); 

my $parser = XML::LibXML->new(no_network => 1); 
my $doc = $parser->parse_file($qfn); 

for my $node ($doc->findnodes('//*')) { 
    for my $attr_name (keys(%$changelist)) { 
     if ($node->hasAttribute($attr_name)) { 
     $node->setAttribute($changelist->{$attr_name}); 
     } 
    } 
} 

$doc->toFile($qfn);