展开全部
#/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;
你试一下这个程序，文件可以不用每行一个单词，直接读取原文本就好！有问题再交流！
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;
你试一下这个程序，文件可以不用每行一个单词，直接读取原文本就好！有问题再交流！
更多追问追答
追问
我是新手，打程序换行是用空格吧？
追答
是的 有空多练习
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
