#navi_header|Perl|

定数を定義したい場合は constant プラグマ((恐らくPerl5以上))を検討すると良い。詳細はperldocの constant pragma の説明を参照。

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

constant.pl
#code|perl|>
#!/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

#navi_footer|Perl|