合并文件

nino_summer

于 2017-07-02 14:29:13 发布

阅读量303

点赞数 1

CC 4.0 BY-SA版权

分类专栏：小试牛刀

本文链接：https://blog.csdn.net/n_ino/article/details/74119589

小试牛刀专栏收录该内容

5 篇文章

订阅专栏

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);
}