home Glamenv-Septzen(ぐらめぬ・ぜぷつぇん)(archive)

Perl/codepiece/constantプラグマによる定数定義

作成日: 2004-09-14 22:38:04   /   last updated at: 2009-04-12 22:43:06
カテゴリ: Perl 

定数を定義したい場合は constant プラグマ*1を検討すると良い。詳細はperldocの constant pragma の説明を参照。

以下に簡単なコードピースを示す。

constant.pl 

#!/usr/bin/perl
use strict;
use warnings;
 
{
    package CSample;
    use constant {
        CS_LEVEL1 => "CSample::level1",
        CS_LEVEL2 => "CSample::level2",
        CS_LEVEL3 => "CSample::level3",
        CS_LEVEL4 => "CSample::level4",
        CS_LEVEL5 => "CSample::level5",
    };
}
 
print CSample::CS_LEVEL1, "\n";
print CSample::CS_LEVEL2, "\n";

実行例 

DOS> perl constant.pl
CSample::level1
CSample::level2
*1: 恐らくPerl5以上
original url: https://www.glamenv-septzen.net/view/344