#!/usr/bin/perl

use strict;

use lib 'd:/Programs/Perl/lib';
use JFile;

my $InFile  = $ARGV[0];
my $OutFile = $ARGV[1];

my %Params;
while(1) {
	my $line = <>;
	last if(!defined $line);
	
	my ($key, $val) = ($line =~ /^(.*?)=(.*)$/);
	next if(!defined $val);
	
	$Params{$key} = $val;
}

my $content = JFile->ReadFile($InFile, undef, 'b') 
				or die "$!: Can not read [$InFile].\n";

my $out = JFile->new($OutFile, 'w') or die "$!: Can not write to [$OutFile].\n";
foreach my $key (keys %Params) {
	my $val = $Params{$key};
	$content =~ s/^$key.*$/$key=$val/g;
}
$out->Close();

exit;