[perl] リファレンスに関するテスト(1)

リファレンスとは何ぞやということがわかっていなかったので、テストコードを書いてみた。なんとなくわかった気がする。それでもわからなきゃData::Dumperでも使ってなってことだ。

@LoL = ( ["00", "01"], ["10", "11", "12"], ["20"] );
  print $LoL[1][1];
#  11
#    $ref =\@LoL;
#    print $ref;
@value = @LoL;
print "\n";
foreach my $ref_array (@value){ 
print $ref_array;
 foreach (@$ref_array){ 
    print $_.","; 
 } 
 print "\n"; 
}
print @LoL;
#  ARRAY(0x83c38)ARRAY(0x8b194)ARRAY(0x8b1d0)
exit;