設定ファイルの読み込み方

http://f22.aaa.livedoor.jp/~deagle/AE/Perl-CGI/Tips/#config_pl
あ、これでいいなｗ

ソラで書いてみた。デバッグはしていない。

sub readconfig
{
	my ($file) = @_;
	my %config;
	
	return unless -f $file;
	if (open my $h, '<', $file) { # sysopen is to better
		
		while(my $line = <$h>) {
			chomp $line;
			
			# comment
			next if $line =~ /^#/;
			
			# key = val
			if ($line =~ /\S*(\w+)\S*\=\S*(\w+)\S*/) {
				$config{$1} = $2;
			}
		}
		close $h;
	}
	else {
		;
	}
	return %config;
}

my %config = readconfig("./cfg/cfg.ini");
if (exists $config{parameter1} && 
	$config{parameter1} eq "yes" ||
	$config{parameter1} eq "y"
	) {
	print "parameter1 is yes.\n";
}

-- cfg/cfg.ini ---
# ini file
parameter1  =  yes