用perl查一个词表中的词在另一个文档中出现的，频率，输出频率表，并列出该词出现的索引行。

Question

我现在有一个词表文件，里面有十几个词，还有一篇已经分好行的一句一句的文章，要用perl写个程序算出每个词的词频，并且把该词出现的索引行也输出，求大侠帮忙，木有计算机基础的人真的欲哭无泪，高分求解。

Answer 1

试试，写的不好，a.txt是写单词的，每行一个，b.txt是要检查的文档。所有单词未区分大小写。
#!/usr/bin/perluse strict;
my %Words;
my $matchString = '';
open WORDS,"< a.txt" or die "cannot open a.txt\n";
foreach (<WORDS>) {
chomp;
s/\s+//g;
$Words{$_}{'count'} = 0;
}
close WORDS;

open FILE,"< b.txt" or die "cannot open b.txt\n";
foreach (<FILE>) {
chomp;
my $line = $_;
$_ =~ s/,/ , /;
$_ =~ s/\./ \. /;
my @words = split /\s+/,$_;

foreach my $word (@words){
$word =~ s/[,.]$//;
$word =~ s/^[,.]//;
foreach my $regex (keys %Words) {
if ($word =~ /^($regex)$/i) {
$Words{$regex}{'count'}++;
$Words{$regex}{$line} = 1;
}
}
}
}
close FILE;

foreach my $word (sort keys %Words) {
print "单词“$word”共出现$Words{$word}{'count'}次，";
print "包含单词“$word”的行如下：\n";
foreach (keys $Words{$word}) {
next if ($_ eq 'count');
print "$_\n";
}
}

print "succeed!\n";

追问

太谢谢啦，可以运行，但是搜索出来结果是这样的：
单词“发展”共出现0次，包含单词“发展”的行如下：
单词“美好”共出现0次，包含单词“美好”的行如下：
单词“人民”共出现0次，包含单词“人民”的行如下：
单词“生活”共出现0次，包含单词“生活”的行如下：
单词“中国”共出现0次，包含单词“中国”的行如下：
succeed!好像没有关联上b.txt的样子。。。。再帮帮忙啦~~

追答

我在看看，是我想的太简单了，我是用因为测试的，

Answer 2

没有计算机基础，你为什么会遇到这类问题。又如何知道要用Perl解决？

追问

恩呢，专业相关嘛，这个是方便处理语言的计算机语言，所以才用啊，自己在研究，但实在是。。。。。。

Answer 3

#!perl -w
my %hash;
open(SOURCEHANDLE , "E:/ckt_work/TestPl/wordcount/source.txt");
open(KEYWORDHANDLE, "E:/ckt_work/TestPl/wordcount/key.txt");
my @keyword = <KEYWORDHANDLE>;
my @sourcearray = <SOURCEHANDLE>;
for (@keyword)
{
chomp($_);
$hash{$_} = 0;
}
#print keys %hash;
for (@sourcearray)
{
$str = $_;
chomp($str);
#print $str , "\n";

for $word (keys %hash)
{
my $times = ()= $str =~/$word/g;

print "str=", $str , "\n";
print "word= ", $word , "\n";
print "times= ", $times , "\n";

$hash{$word} = $hash{$word} + $times;
}

}
for my $tempkey (keys %hash)
{
print $tempkey."=".$hash{$tempkey},"\n";
}