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

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• 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番目(インデックス2)要素を参照している

確認

1, 3, 4番目

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

コード(TextWrangler)

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

my @list_1=qw(one two three four five);
my @list_2=qw(six seven eight nine ten);
my @list_3=qw(a b c d e);
my @list=(\@list_1,\@list_2,\@list_3);
my $ginger=\@list;
print "1: ".$ginger->[2][1]."\n"
     ."3: ".$ginger->[2]->[1]."\n"
     ."4: ".${$ginger->[2]}[1]."\n";

入出力結果(Ternimal)

$ ./my_program 1: b 3: b 4: b

2番目

コード(TextWrangler)

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

my @list_1=qw(one two three four five);
my @list_2=qw(six seven eight nine ten);
my @list_3=qw(a b c d e);
my @list=(\@list_1,\@list_2,\@list_3);
my $ginger=\@list;
print "2: ".${$ginger[2]}[1]."\n";

入出力結果(Ternimal)

$ ./my_program Global symbol "@ginger" requires explicit package name at ./my_program line 10. Execution of ./my_program aborted due to compilation errors.