まとめて定数[2]。
何かを不満に思ったら、何かに怒りを感じたら。
その対象物の欠点とも取れる特徴をも柔軟に受け入れ、
自分の望む・期待する方向に展開出来ない
自分の器の小ささや、力のなさを嘆くべき。
嫌だ嫌だって言うのは、子供だって出来る。
だから、自分は自分を磨かないと。
もっと強くならないと、大事な人を守れないよね。
知識と経験を蓄えなくっちゃー。
って訳で、日々勉強。
ふにゃ。定数にはハッシュも指定出来るのでメモ。
ってーか、Readonly でもいいっちゃー、いいんだけどさー。
・Constanst.pm
package Constants;use strict;
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
require Exporter;
@ISA = qw(Exporter);
%EXPORT_TAGS = (
common => [qw(BASE_URL BOOLEAN)]
);
@{$EXPORT_TAGS{'all'}} = map {@$_} values %EXPORT_TAGS;
@EXPORT_OK = map {@$_} values %EXPORT_TAGS;
use constant BASE_URL => 'http://anigon.net/';
use constant BOOLEAN => {
'TRUE' => 1,
'FALSE' => 0
};
1;
・test.pl
#!/usr/bin/perl -wuse strict;
use Constants qw(:common);
print BASE_URL."\n";
print BOOLEAN->{'TRUE'}."\n";
print BOOLEAN->{'FALSE'}."\n";
exit;