ホーム
検索
ログイン
ヘルプPerl/codepiece/constantプラグマによる定数定義
Perl / codepiece / constantプラグマによる定数定義
id: 344 所有者: msakamoto-sf
作成日: 2004-09-14 22:38:04
カテゴリ: Perl
カテゴリ: 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以上
プレーンテキスト形式でダウンロード
現在のバージョン : 1
更新者: msakamoto-sf
更新日: 2009-04-12 22:43:06
md5:665a4c096a9968f4a35b1777053938d3
sha1:bfb7205e3518d0df5cc7ea83c8c535cf25bbc49b
更新者: msakamoto-sf
更新日: 2009-04-12 22:43:06
md5:665a4c096a9968f4a35b1777053938d3
sha1:bfb7205e3518d0df5cc7ea83c8c535cf25bbc49b
コメント
コメントを投稿するにはログインして下さい。