源文件:
一项项地去 71
一项项地进行 39
一坨坨地向上 32
一届届地办 24
一沓沓地做 23
一秒秒地过 21
一项项地排列 17
一项项地列出 13
一岁岁地变 12
open(a,"1.txt");
while($m=<a>){
chomp($m);
if($m=~/(.+)地([^\s\d]+)\s+\d+/){
if(defined $hash{$2}){
push(@{$hash{$2}},$1);
}else{
@{$hash{$2}}=();
push(@{$hash{$2}},$1);
}
}
}
close(a);
mkdir "./1qqdv";
foreach $e1(sort keys %hash){
@arr=@{$hash{$e1}};
foreach $e2(@arr){
print c "$e2";
}
print c"\n";
}