open(In,"dict.txt");
$i=0;
$j=0;
while(<In>){
chomp;
if(/@/){
#print "$_\n";
$j++;
}
$i++;
}
close(In);
print $j/$i;
找出兼类词并计算兼类词占整个词表的百分比
最新推荐文章于 2019-03-20 19:11:00 发布
open(In,"dict.txt");
$i=0;
$j=0;
while(<In>){
chomp;
if(/@/){
#print "$_\n";
$j++;
}
$i++;
}
close(In);
print $j/$i;