perl 引用备忘

发牌SO

• //$ref是一个匿名数组引用，同时嵌套着匿名数组引用，匿名散列引用
  
• my $ref = [1,2,3,['a','b','c'],{a=>1,b=>2,c=>3,},];
  
• 
  
• //访问其中的一个元素1
  
• printf "%d\n",$ref->[0];
  
• printf "%d\n",$$ref[0];
  
• printf "%d\n",${$ref}[0];
  
• 
  
• //访问其中的一个嵌套的匿名数组引用的值a
  
• printf "%s\n",$ref->[3]->[0];
  
• printf "%s\n",$$ref[3][0];
  
• printf "%s\n",${$ref}[3][0];
  
• 
  
• //访问其中的一个嵌套的匿名散列引用
  
• printf "%d\n",$ref->[4]->{a};
  
• printf "%d\n",${$ref}[4]{a};
  
• 
  
• print @{$ref->[3]},"\n";
  
• print keys %{$ref->[4]},"\n";
  
• print values %{$ref->[4]},"\n";
  
• 
  
• my $i = 0;
  
• 
  
• while ($i < 3) {
  
•        print $ref->[3]->[$i],&quot;\n&quot;;
  
• }continue{$i++;};
  
• 
  

　　

　　一个使用引用的sample
　　

• my $ref = {};
  
• 
  
• open my $file,'