設定ファイルを読み込む
Config::Simpleモジュールを使います。
use Config::Simple;
my $conf = Config::Simple->new('aaa.txt') or die Config::Simple->error();
print $conf->param('aaa'), "\n";
===== aaa.txt =====
aaa=1
bbb=2
tieを使うこともできます。
tie my %cfg, 'Config::Simple', 'aaa.txt' or die Config::Simple->error();
print $cfg{bbb}, "\n";
上記は key=val という形式のファイルですが、他の形式のファイルも使えます。詳しくは perldoc Config::Simple で見て下さい。
my $conf = Config::Simple->new('bbb.txt') or die Config::Simple->error();
print $conf->param('aaa'), "\n";
===== bbb.txt =====
aaa 1
bbb 2
