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(練習問題)、2を解いてみる。

2.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; sub check_required_items{ my $who = shift; my $items = shift; my @required = qw(preserver sunscreen water_bottle jacket); my @missing = (); for my $item ( @required){ unless (grep $items eq $_, @$items){ print "$who is missing $item.\n"; push @missing, $item; } } if(@missing){ print "Adding @missing to @$items for $who.\n"; push @$items, @missing; } } sub check_items_for_all{ my $all = shift; for(keys %$all){ check_required_items($_, $all->{$_}); } } my @gilligan = qw(red_shift hat lucky_socks water_bottle); my @skipper = qw(blue_shirt hat jacket preserver sunscreen); my @professor = qw(sunscreen water_bottle slide_rule batteries radio); my %all = ( Gilligan => \@gilligan, Skipper => \@skipper, Professor => \@professor, ); check_items_for_all(\%all);

入出力結果(Terminal)

$ ./perl_program Gilligan is missing preserver. Gilligan is missing sunscreen. Gilligan is missing water_bottle. Gilligan is missing jacket. Adding preserver sunscreen water_bottle jacket to red_shift hat lucky_socks water_bottle for Gilligan. Skipper is missing preserver. Skipper is missing sunscreen. Skipper is missing water_bottle. Skipper is missing jacket. Adding preserver sunscreen water_bottle jacket to blue_shirt hat jacket preserver sunscreen for Skipper. Professor is missing preserver. Professor is missing sunscreen. Professor is missing water_bottle. Professor is missing jacket. Adding preserver sunscreen water_bottle jacket to sunscreen water_bottle slide_rule batteries radio for Professor. $