Question

perl 计算txt文件中单词出现频率（次数）

求解如题程序怎么写？

例如：
原文：
abcddddeffg

输出：
a: 1
b: 1
c: 1
d: 4
e: 1
f: 2
g: 1

本人刚刚入门perl不到半年，望各位大侠指教，给个已测试能用的程序，我学习下

Answer 1

$x = "Bill the cat"宽盯;
$x =~ s/(.)/$chars{$1}++;$1/eg; # final $1 replaces char with itself
print "frequency of '$_' is $chars{$_}\缓中n"
foreach (sort {$chars{$b} <=> $chars{$a}} keys %chars);
原慎哪和理是利用eval来计算。

追问

哥们儿帮忙再解释下每个部分。。。我初学者不大能看懂。。有追加分，谢了

Answer 2

你是要找单词(word) 还是字元(char) ? 是否只有 a-z ?

追问

单词word。
只有a-z！

追答

$str = "ajsdlasjdklajlasjdsa";
@chars = split //, $str;
$count{$_}++ foreach @chars;
print "$_ = $count{$_}$/" foreach sort keys %count;

追问

额，这个是字元char吧。。？
我要的是word~
是不是同样道理换成
@word = split/ /,$str;
就可以了？

追答

嘿! 绝对正确! / / 就行了.

因为你的示例我看不出有空格, 都是字元, 所以误会了