perlで共通定数を使う方法 - 高知ではたらくひとのブログこんな感じかな。 共通定数定義モジュール Constant.pm #!/usr/bin/perl package Constant; use strict; # Exporterを継承 use base qw/Exporter/; # グローバル変数の使用を宣言 use vars qw /@EXPORT_OK/; # @EXPORT_OKは要求に応じてエクスポートするシンボルを指定 # @EXPORTに指定すると要求はいらない @EXPORT_OK = qw/HOGEHOGE URL_NEXT_NODE/; #定数 use constant { HOGEHOGE => 10, PIYOPIYO => 'hoge', }; 1; 使う側 use strict; # HOGEHOGEの使用を要求 use Constant qw/HOGEHOGE/; print HOGEHOGE;
