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を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉

1.

異なる参照先は1つで、${$ginger[2]}[1]。

リファレンス入門(grepでのサイズによるフィルタリング、map)のコードをい再利用。

コード(TextWrangler)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.012;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';

my @list1 = qw(a b c d e);
my @list2 = qw(f g h i j);
my @list3 = qw(k l m n o);
my @list = (\@list1, \@list2, \@list3);
my $ginger = \@list;
for($ginger->[2][1], $ginger->[2]->[1], ${$ginger->[2]}[1]){
  print "$_\n";
}

入出力結果(Terminal)

$ ./sample.pl
l
l
l
$