09/08/07 07:25:46
前スレの>>232を実行しましたが、hogehogeとしか出力しません。
どこかおかしくはないでしょうか？
Perlについての質問箱 40箱目
ｽﾚﾘﾝｸ(tech板:232番)
232 名前：デフォルトの名無しさん[sage] 投稿日：2009/06/18(木) 16:48:15
---- test.pl ----
use 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;
設定を１つに纏めたいなら、ourとか考えずに上記のようにしろ。
万が一の確立で、そんな面倒なソースがまわってきたら嫌だ。