プログラミング学習の記録 714.2 5章(リファレンスとスコープ)の練習問題1(スカラー、中括弧とハッシュリファレンス) 『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-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) の 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);

あるいは、

コード(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);

1つ目のコードは左辺をスカラー($)に変更して、配列@passengersを作る時にデリファレンスしてまたリファレンスしてスカラー値に。

2つ目のコードは各passengerをハッシュに変更してそのリファレンスを配列@passengersの要素にする。

ちなみに問題のプログラムを修正せずに実行するとどのようなエラー、警告が発生するか確認してみる。

入出力結果(Terminal)

$ ./perl_program Reference found where even-sized list expected at ./perl_program line 5. Reference found where even-sized list expected at ./perl_program line 13.