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 回答