perl - There's more than one best practice> この点ははっきり言おう。こういう形でreturnできるのはperlの美点だと。途中で return できるのは別に perl 独自の機能ではないですよね。「perlなら許される」ということであれば、ちょっと理解できない。どんな言語であろうと、基本は出口はひとつがベストと考えます。ただし実際にプログラムを組むと、例外処理・エラー処理が必要になるので、なかなかそうもいかない。ではどうい...
perl - 勝手に添削 - WEB+DB Press Vol.32 pp.94について。わたしなんかよりよっぽど perl を知っている人なのだろうから機能的な点についてはコメントしないが、はたしてこの添削後のコードはきれいなのか?気になるのは、 sub search_result{ return unless param("query"); ... my $response = get...
今日 30分はまったこと。Perl の正規表現で、ドットの部分を改行コードにもマッチしてほしくて m/[.\n]/とし書いたが、全く意図どおりに動かなかった。なぜなら文字クラス [〜] の外にあるドットは「改行以外の任意の一文字」という意味だが、文字クラスの中にあるドットは ただのドットだから (Perl に限らず、あらゆる正規表現にあてはまる)。よって、if ( 'abc' =~ m/[.]/ ){ print "OK!\n";}はマッチしない。...
今日 Perl で はまったこと。 foreach (1..5){ { if ( $_ == 3 ){ next; } } print "$_\\n"; }の結果は、1,2,4,5, ではなく 1,2,3,4,5 となる。ラクダ本曰く 「ブロックは、意味的には、1回だけ実行されるループと等価」とのこと。知らなかった。わたしは変数のスコープを狭くするために { my $tmpbuf = &func($hoge); $tmpbuf =~ ...
