#/usr/bin/perl
open (IN, 'D:\\words.txt ') || die $!;
@words=();
close IN;
open (OUT,'>','D:\\wordlist.txt')or die $!;
foreach $line(@words){
$line=~s/\n//g;
@words=split /\s+/,$line;
foreach $word(@words){
$word=~s/\W+//;
$freq {$word}++;
print OUT $word ."=>". $freq{$word}."\n";
}
}
close OUT;
你试一下这个程序，文件可以不用每行一个单词，直接读取原文本就好！有问题再交流！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024