プログラミング学習の記録 472.1 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)の4章(サブルーチン)の練習問題5

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler (Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の4章(サブルーチン), 4.12(練習問題)、5を解いてみる。

5.

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

コード( TextWrangler)

#!/usr/bin/perl -w use 5.010; greet("Fred"); greet("Barney"); greet("Wilma"); greet("Betty"); sub greet{ # 出会った人の名前を格納するためリストをstateを使用して宣言 state @people; $name=shift; print "Hi, $name\! "; if(@people){ print "I've seen: @people\n"; }else{ print "You are the first one here!\n"; } push @people,$name; }

入出力結果(Ternimal)

Hi, Fred! You are the first one here! Hi, Barney! I've seen: Fred Hi, Wilma! I've seen: Fred Barney Hi, Betty! I've seen: Fred Barney Wilma

前問のコードのサブルーチン内の変数$lastを@peopleというリストに変更して、そのリストにそれまでに挨拶した人の名前をpushしておく。(もちろん記憶しておくためにstateはそのまま！)