小编Nic*_*ick的帖子

在Perl中,我该如何获得:

$VAR1 = { '999' => { '998' => [ '908', '906', '0', '998', '907' ] } }; 
$VAR1 = { '999' => { '991' => [ '913', '920', '918', '998', '916', '919', '917', '915', '912', '914' ] } }; 
$VAR1 = { '999' => { '996' => [] } }; 
$VAR1 = { '999' => { '995' => [] } }; 
$VAR1 = { '999' => { '994' => [] } }; 
$VAR1 = { '999' => { '993' …

可以说我有以下Perl哈希:

%hash = ( 
    'A' => { 
        'B' => ['C', 'D', 'E'], 
        'F' => { 'G' => [], 'H' => [] }, 
        'I' => [] 
        } );

我想摆脱[]下面的哈希结果:

%hash = ( 
    'A' => [ 
       'B' => ['C', 'D', 'E'], 
       'F' => [ 'G', 'H', 'I' ] 
        ] 
    )

(我希望我得到了我{}和[]平衡的,我道歉,如果没有,但)基本上我想要让这个没有空的阵列/ REF的存在.我确信这是可行的/简单的,但我不确定是否delete()可行,或者是否有更好的方法或Perl模块.有人能引导我朝着正确的方向前进吗？