|
- 帖子
- 77
- 积分
- 96
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2016-3-18
|
本帖最后由 949825667@qq.co 于 2016-8-12 11:42 编辑
虽然还是很丑陋，不过至少能解决问题了
open($IN,"<8k.txt") or die $!;
open($sp_n,"<n.txt") or die $!;
while(<$IN>){
chomp;
tr/\r\n//d;
s/\s+/ /g;
s/^\s+//;
s/\s+$//;
$line1=$_;
if($line1=~/[a-z]*n\./){
$line2=$line1;
($word,$trans)=split(/\s+/,$line2);
$dic{$word}=$trans;
#print"$dic{$word}\n";
#print"$word\n";
while(<$sp_n>){
chomp;
$line3=$_;
$sp_w{$line3}=1;}
#print "$word\n";
#foreach (keys %dic){
if(!exists $sp_w{$word}){
print "$word\n";
}
#}
}
} |
|
发表于 2016-8-12 10:33
| 
