[Perl] 定数の定義 use constant



定数の定義 サンプルコード

Perlで定数を定義するには、contantモジュールを使う。

 use constant CONST_INT => 1234;
 use constant CONST_ARR => ['a', 'b', 'c'];
 use constant CONST_HSH => {'key' => 'val'};
 
 print CONST_INT, "\n";
 print CONST_ARR->[0], "\n";
 print CONST_HSH->{'key'}, "\n";

定数で、配列やハッシュを扱う場合はリファレンスを利用する。
以下のような書き方はダメ。

use constant CONST_ARR => ('a', 'b', 'c');
use constant CONST_HSH => ('key' => 'a');

構築環境:Perl5.6.1

参考文献

CakePHP 1.3によるWebアプリケーション開発―オープンソース徹底活用 続・初めてのPerl 改訂版 たのしいRuby 第2版 Rubyではじめる気軽なプログラミング

Comments are closed.