ziguzagu.org

use constant

Perlで定数を定義するときによく使うconstant pragma。一度に複数定義するときはこんな風にできる、

use constant {
    SEC  => 0,
    MIN  => 1,
    HOUR => 2,
    MDAY => 3,
};

というのを知らなかった…。

今までずっと、定義ごとに use constant してた…。う~ん、ダサい。

perldocはちゃんと読みましょう。あと、constant.pmはクロージャのよいサンプルでもあるのでソースも見ておきましょう。