sironekotoroの日記

Perl で楽をしたい

Perl言語プログラミングレッスン[入門編] 第3章

その他

  • 冒頭からその他とか
  • 先週、Perlの勉強の後にみた「まどかマギカ [新編]」の後遺症中。
  • 今回からその日の勉強ややったこと単位ではなくもっと細かい粒度でblogに記事を残してみる。
    • 一つの記事にいくつものエントリ突っ込むの検索性が悪かった

IF修飾子

  • if文の{}の中が1つの文の場合、「if修飾子」を使ってシンプルに書くことができる。

    • そういうのもあるのか
  use strict;
  use warnings;

  my ( $sec, $min, $hour ) = localtime();

  print "even\n" if ($sec %2 ==0);
  print "odd\n" if ($sec %2 ==1);
  • 自分で使わなくても、人のプログラム見るときのためにこういうのを知っておかないとね〜

ちょっと便利なデバッグプリント

  • デバッグon/off用の変数を用意して、if文でデバッグプリントの実行を制御する。なるほど。
use Data::Dumper;
my $debug = 1;

$data = {
    name => "sironekotoro",
    status => "poison"
};

print Dumper $data if ($debug == 1);