sub conf2hash {
	my %argv = @_;
	
=pod
	usage:	
	conf2hash( file=>'path/2/file', hashref=> \%yourhash, splitchar=>'=', commentchar=> '#');
	if splitchar is null, default is = sign
	if commentchar is null, default is # mark

	# one key val pair per line
	# returns 0 on errors
=cut

	defined $argv{splitchar} or $argv{splitchar}='=';
	defined $argv{hashref} or return 0;
	defined $argv{commentchar} or $argv{commentchar}='#';
	defined $argv{file} or return 0;

	open (IN, "< $argv{file}") or die($!);
	while (<IN>) {
	
		if ( $_=~m/^$argv{commentchar}|^\s+$/ ) { next;}
		$_=~s/\s//g;
		
		my @a = split(/$argv{splitchar}/,$_);
		${$argv{hashref}}{$a[0]}=$a[1];		
	}
	close IN;
	return 1;
}