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)の5章(リファレンスとスコープ),　5.9(練習問題)、1を解いてみる。

1.

問題のプログラムはハッシュ(%変数名)に無名ハッシュコンストラクタ({・・・}、スカラー値)を代入してるのが間違い。

次のように、中括弧{}を丸括弧に修正すればいい。

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; my %passenger_1 = ( name => 'ginger', age => 22, occupation => 'Movie Star', real_age => 35, hat => undef ); my %passenger_2 = ( name => 'Mary Ann', age => 19, hat => 'bonnet', favorite_food => 'corn' ); my @passengers = (\%passenger_1, \%passenger_2);

入出力結果(Terminal)

$ ./perl_program $

修正したので警告は表示されない。