coding my life

YAPC::Asia 2008 に参加することにしたのですが、Perlを使ったことがほぼないので会社にあった「はじめてのPerl」を見ながらイチからやることにしました。あと1週間しかないけど。

というわけで最初にハマったこと。

• while ループを抜けるのは last らしい。
• use strict はみんなつけてるみたいだからとりあえずつけてみた
• use strict にすると変数への代入で怒られるのでよく知らないまま my つけてみた
• <STDIN>から読み込んで "quit" なら終了というのを書いてみたけど何を入れても終わっちゃうなあ
• chomp を <STDIN> に対してやったら怒られた。ファイルハンドルよく分からない

use strict; while(1) { my $input = <STDIN>; chomp $input; last if $input == 'quit'; print $input; }

2008-05-08 12:02 追記

$input == 'quit' が悪いとの指摘をいただきました。 == じゃなくて eq を使えとのこと。 ということで以下にしたら思い通りに quit のときだけ終了するようになりました。 指摘していただいたみなさん、ありがとうございます > @kimuchi @fuktommy @tokuhirom @kuzuha

use strict; while(1) { my $input = <STDIN>; chomp $input; last if $input eq 'quit'; print $input; }

eq は文字列比較用の演算子で、== は数値比較用の演算子らしいです。 最初はC言語的に strcmp しないといけないのかなとか思ってました。(strcmpあるのか知らない)

「初めてのPerl」本の目次をざっと見たけどこの辺の記述がなさそうだったので、本家サイトのドキュメンテーションから文字列の比較と演算子のあたりを調べようとおもいます。

• Documentation perl.com