package Util; sub parse_config { my $config_file = shift; die "Config file is not $config_file\n" unless -f $config_file; my $config_content; open CONFIG, "<$config_file"; my @params; my @config; while(){ s/#.*^//; @params = split(/\s+=\s+/) if /\s+=\s+/; push(@config, @params); } chomp(@config); return @config; } 1;