网络收藏

代码如下：  
  #!/usr/bin/perl  
  use   data::dumper;  
  $,   =   ,;  
  my   @d1   =   (1,   3);  
  my   @d2   =   (2,   4);  
  push   @d1,   \@d2;  
  push   @d2,   \@d1;  
  my   $d   =   dumper(\@d1,   \@d2);  
  print   $d;  
  eval   $d;  
  print   "@{$var1}\n@{$var2}";  
   
  输出结果：  
  $var1   =   [  
                      1,  
                      3,  
                      [  
                          2,  
                          4,  
                          $var1  
                      ]  
                  ];  
  $var2   =   $var1->[2];  
  1   3   array(0x2b25500)  
  2   4    
   
  第二项的输出结果为什么少了最后的一项引用？哪位大侠见过类似的问题请说明一下。谢谢。

推荐阅读