argra****@users*****
argra****@users*****
2017年 1月 17日 (火) 02:09:34 JST
Index: docs/perl/5.10.1/perllol.pod
diff -u docs/perl/5.10.1/perllol.pod:1.1 docs/perl/5.10.1/perllol.pod:1.2
--- docs/perl/5.10.1/perllol.pod:1.1 Thu Jun 7 02:53:29 2012
+++ docs/perl/5.10.1/perllol.pod Tue Jan 17 02:09:34 2017
@@ -54,7 +54,7 @@
=end original
- # 配列に配列への参照の配列を代入する
+ # 配列に配列へのリファレンスの配列を代入する
@AoA = (
[ "fred", "barney" ],
[ "george", "jane", "elroy" ],
@@ -89,12 +89,12 @@
=end original
- # 配列に配列への参照の配列を代入する
- @AoA = (
- [ "fred", "barney" ],
- [ "george", "jane", "elroy" ],
- [ "homer", "marge", "bart" ],
- );
+ # 配列へのリファレンスの配列へのリファレンスを代入する
+ $ref_to_AoA = [
+ [ "fred", "barney", "pebbles", "bambam", "dino", ],
+ [ "homer", "bart", "marge", "maggie", ],
+ [ "george", "jane", "elroy", "judy", ],
+ ];
print $ref_to_AoA->[2][2];