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);
}
合并文件
最新推荐文章于 2023-12-07 08:00:00 发布