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