help,把hash引用推入array出了问题

welf

推入前的数组

1. $VAR1 = {
   
2.           'componentList' => {
   
3.                                'component' => [
   
4.                                                 {
   
5.                                                   'key11' => 'val11',
   
6.                                                   'key12' => 'val12',
   
7.                                                 }
   
8.                                               ]
   
9.                              }
   
10.         };

复制代码

推入引用

1. $VAR1 = {
   
2.           'key21' => 'val21',
   
3.           'key22' => 'key22',
   
4.         };

复制代码

推入后数组

1. $VAR1 = {
   
2.           'componentList' => {
   
3.                                'component' => [
   
4.                                                 {
   
5.                                                   'key21' => 'val21',
   
6.                                                   'key22' => 'key22',
   
7.                                                 },
   
8.                                                 $VAR1->{'componentList'}{'component'}[0]
   
9.                                               ]
   
10.                              }
    
11.         };
    

复制代码

相关代码

1. foreach (@file_list) {
   
2.         $node{$key1} = $val1;
   
3.         $node{$key2} = $val2;
   
4.         print Dumper(\%node);
   
5.         unshift(@{$xml->{'componentList'}->{'component'}}, \%node);
   
6.         print Dumper($xml);
   
7. }
   

复制代码

welf

发现问题了，%node在foreach外声明， 后者覆盖前者出的问题.改在foreach内声明即可