0

我是 Perl 的新手，所以你必须原谅我的代码。

我正在读取一个树形结构的文件（如 xml，实际上不是），我想foreach通过树，如果某个“节点”没有子节点，我想插入它。很简单。

这是我的代码：

foreach $key ( @{$struct->{'transferBatch'}->{'callEventDetails'} } ) {

    foreach ( keys %{$key} ) {

        if ( $_ eq "mobileTerminatedCall" ) {

            if ( defined $key->{$_}->{'basicServiceUsedList'} ) {

                if ( defined $key->{$_}->{'basicServiceUsedList'}[0]->{'chargeInformationList'} ) {

                    if ( not defined $key->{$_}->{'basicServiceUsedList'}[0]->{'chargeInformationList'}[0]->{'CallTypeGroup'} ) {

                        $CallTypeGroup = {                          
                                "CallTypeLevel1:" => "0",
                            "CallTypeLevel2:" => "0",
                            "CallTypeLevel3:" => "0"

                        };                          

                        #Doesn't work! 
                        $key->{$_}->{'basicServiceUsedList'}[0]->{'chargeInformationList'}[0]{'CallTypeGroup'} =  $CallTypeGroup;
                    }
                }
            }
        }
    }
}

迭代工作正常，但我的push调用失败，说它不是 ARRAY 引用。我觉得我很接近，但我需要那条线将$CallTypeGroup哈希作为一个孩子插入到当前位置。

任何帮助表示赞赏！

4

1 回答 1

1 
$key->{$_}->{'basicServiceUsedList'}[0]->{'chargeInformationList'}[0]

包含对哈希的引用，如此处创建的（如果不是更早的话）：

if ( not defined
   $key->{$_}{basicServiceUsedList}[0]
      ->{chargeInformationList}[0]
         ->{CallTypeGroup} )

你没有指出你想要什么数据结构，所以我不确定除了解释信息之外我们还能提供什么帮助。我认为您只是想将其更改if为

if ( not defined
   $key->{$_}{basicServiceUsedList}[0]
      ->{chargeInformationList}[0] )

顺便说一句，您确实应该使用变量来保存中间引用，而不是使用这么长的“名称”。

顺便说一句，我对所有那些硬编码的零索引高度怀疑。

于 2012-09-21T17:49:12.097 回答