Perlについての質問箱 40箱目
■ このスレッドは過去ログ倉庫に格納されています
0232デフォルトの名無しさん
2009/06/18(木) 16:48:15use strict;
require 'config.pl';
print config::param('hoge');
print config::param('fuga');
---- config.pl ----
package config;
use strict;
sub param {
return (
hoge => 'abcdefg',
fuga => '12345',
)[$_[0]];
}
1;
設定を1つに纏めたいなら、ourとか考えずに上記のようにしろ。
万が一の確立で、そんな面倒なソースがまわってきたら嫌だ。
■ このスレッドは過去ログ倉庫に格納されています