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

開発環境

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

4.

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

コード( TextWrangler)

#!/usr/bin/perl -w use 5.010; greet("Fred"); greet("Barney"); sub greet{ state $last; $name=shift; print "Hi, $name\! "; if(defined $last){ print "$last is also here!\n"; }else{ print "You are the first one here!\n"; } $last=$name; }

入出力結果(Ternimal)

Hi, Fred! You are the first one here! Hi, Barney! Fred is also here!

今日は少し苦戦。はじめは「use 5.010;」を記述してなかったら、

Can't call method "state" on an undefined value at ./my_program line 7.

というエラーが表示されて途方にくれかけたけど、「use 5.010;」というコードを加えたら想定通りプログラムが動いた！

理由はよく分からなかったりするけど、とりあえず先に進むことに。