合并文件

ReadDict("202_112_194_59_601_n{count_10}.txt");
ReadDict("202_112_194_59_602_n{count_10}.txt");
ReadDict("202_112_194_59_603_n{count_10}.txt");
ReadDict("202_112_194_59_604_n{count_10}.txt");
ReadDict("202_112_194_59_605_n{count_10}.txt");
ReadDict("202_112_194_59_606_n{count_10}.txt");
ReadDict("202_112_194_59_607_n{count_10}.txt");
ReadDict("202_112_194_59_608_n{count_10}.txt");
ReadDict("202_112_194_59_609_n{count_10}.txt");
ReadDict("202_112_194_59_610_n{count_10}.txt");

Output("noun.txt");
# Output("yes_n.txt");
sub ReadDict{
	my ($file)=@_;
	open(In,$file);
	while(<In>){
		chomp;
		@arr=split(" ",$_);
		$hash{$arr[0]}=$arr[1];
	}
	close(In);		
}
sub Output{
	my ($file)=@_;	
	open(D,">>$file");
	foreach (sort{$hash{$b}<=>$hash{$a}} keys %hash){	
		print D "$_ $hash{$_}\n";
	}
	close(D);
}