Perl - リファレンス入門(ネストしたデータ構造)

続・初めてのPerl 改訂版
Randal L. Schwartz
brian d foy, Tom Phoenix 著

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール/長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9) の4章(リファレンス入門)、4.9(練習問題)1を解いてみる。

1.

異なる参照先は${$ginger[2]}[1]。$ginger[2]はginger配列の3番目の要素を指す。

他は同じ参照先。

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;

my @l = (1,2,3,4,5);
my @m = ('a',\@l);
my @list = ('perl','python',\@m,'ruby');
my $ginger = \@list;

for($ginger->[2][1],$ginger->[2]->[1],${$ginger->[2]}[1]){
  print "$_\n";
}

入出力結果(Terminal)

$ ./sample.pl
ARRAY(0x7fb65a027eb8)
ARRAY(0x7fb65a027eb8)
ARRAY(0x7fb65a027eb8)
$