#!perl
# fix MOJIBAKE in NMZ.field.subject and NMZ.field.summary file.

$file1 = "NMZ.field.subject";
$file2 = "NMZ.field.uri";
$file3 = "NMZ.field.summary";

system("del ..\\$file1.bak");
system("del ..\\$file3.bak");
system("move $file1 ..\\$file1.bak");
system("move $file3 ..\\$file3.bak");

open FILE1, $file1 or die "No such file: $!";
@allline1 = <FILE1>;
close FILE1;
open FILE2, $file2 or die "No such file: $!";
@allline2 = <FILE2>;
close FILE2;
open FILE3, $file3 or die "No such file: $!";
@allline3 = <FILE3>;
close FILE3;

$count = 0;

open OUTFILE1, ">$file1";

foreach $line (@allline1){
	if($line =~ /Win32/s){
		$allline2[$count] =~ s!.*/!!g;
		print OUTFILE1 $allline2[$count];
		print $count+1;
		print ": $allline2[$count]\n";
	}else{
		print OUTFILE1 $line;
	}
	$count++;
}
close OUTFILE1;

open OUTFILE2, ">$file3";
foreach $line (@allline3){
	$line =~ s/Win32.*?\(.*?\)//g;
	print OUTFILE2 $line;
}
close OUTFILE2;

print "replaced.\n";
exit(0);