Perl - リファレンス入門(デリファレンスと参照(->、角括弧、中括弧))

開発環境

• 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]の1つ。

確認。

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; my @list_1 = qw(a b c d e); my @list_2 = ('f','g',\@list_1,'h','i'); my @list_3 = qw(A B C D E); my $ginger = \@list_2; my @ginger =('F','G',\@list_3,'H','I'); my @all = ($ginger->[2][1],${$ginger[2]}[1],$ginger->[2]->[1],${$ginger->[2]}[1]); for(@all){ print "$_\n"; }

入出力結果(Terminal)

$ ./perl_program b B b b $

結果から分かるように、${$ginger[2]}[1]だけスカラーの$gingerではなく配列の@gingerから参照先を見つけてる。