Question

perl中统计单词出现频率的一段代码,大家帮我看看我那里错了?

#!/usr/bin/perl
open(MY,"1.txt");while(<MY>){
while(/fred/){
$words {$1}++;
} }
foreach $_ (keys %words){
print "$_$words{$1}\n;
"}
我的txt文本是
fred
barney
fred
dino
wilma
fred

Answer 1

#!/usr/bin/perl
use strict;
use warnings;

my %words =();

open(MY,"1.txt")
or die "File problem: $!";

while (<MY>){
$words {$1}++ if /(\w+)/ ;
}
foreach (keys %words) {
print $_, "=> ", $words{$_}, "\n";
}

追问

能解释下这个代码吗? $words {$1}++ if /(\w+)/ ;

追答

## $words {$1}++ if /(\w+)/ ;
-- 如果一行 (在 $_ 里) 匹配到了一个单词，if ($_=~ m/(\w+)/ ) {...}
匹配到的单词在 $1 里
$words{$1} 就加 1 (起始数为0)

追问

那您能帮我看下我哪里错了嘛,呵呵 ,我感觉我的也挺对的啊?谢谢您了

追答

--最大的错误: use strict; use warnings; ) {
while(/fred/) { # $_=~ /fred/, 没括号，$1是空的；
$words {$1}++; # 只要 fred，别的不管了??
}
}
foreach $_ (keys %words) { # 不用你声明，知道 key 在 $_ 里
print "$_$words{$1}\n; # 这的 $1 匹配的是谁呀?? $words{$_}
"}