Question

用Perl语言：写一个程序，读入一串单词(一个单词一行)，输出每一个单词出现的次数。 求解。

（提示：如果某个作为数字使用值是undefined 的，会自动将它转换为0。）如果输入单词为fred, barney, dino, wilma, fred（在不同行中），则输出的fred 将为2。作为额外的练习，可以将输出的单词按照ASCII 排序。
#ex7-2
#未完成程序，无法通过输入创建哈希表
my %words = ();
my $i = 0;
my $strWord = "";
while ( !(($strWord = <STDIN>) eq '-1') ) {
chomp($strWord);
$words{$i} = $strWord;
$i++;
}
foreach $strWord (keys %words) {
print "$strWord => $words{$strWord}\n";
}

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

#/usr/bin/perl

open (IN, 'D:\\words.txt ') || die $!;
@words=(<IN>);
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;
你试一下这个程序，文件可以不用每行一个单词，直接读取原文本就好！有问题再交流！

追问

非常感谢。
程序我做了修改，运行成功了。
foreach $line(@words){
@word_list = split /\s+/, $line;
foreach $word(@word_list){
$freq{$word}++;
print OUT $word ."=>". $freq{$word}."\n";
}
}