Config::Simpleを使用せずに設定ファイルを読み込む
ActivePerlをデフォルトでインストールした状態だと設定ファイルを読み込むためのモジュールConfig::Simpleが入っていません。
なので自作してみました。
下記のように「=」で設定値を定義している設定ファイルを読み込むソースコードです。
key1=value1 key2=value2
各行を「=」を境に置換して連想配列にkeyとvalueというかたちで値を入れ込んでいます。
my %properties; my $line; my $key; my $value; open(FILE, 'multiDeploy.properties') or die "multiDeploy.properties: $!"; while (defined($line = <FILE>)) { $key = $line; $value = $line; $key =~ s/=[\w\.\-:\/\\\ ]+//; $key =~ s/\n//; $value =~ s/[\w\.\-:\/\\\ ]+=//; $value =~ s/\n//; $properties{"$key"} = $value; }