请教:统计文本单词数

biomasm

处理某文本,做到此步,现需统计文本单词数,每行1单词,我用forfor处理没有搞定,请哪位前辈指点一下啊
示例:
you
will
be
in
my
heart
heart
forever
forever
forever
期望结果(按count降序排列):
word count percent
forever 3 30%
heart 2 20%
you 1 10%
will 1 10%
be 1 10%
in 1 10%
my 1 10%

pupilzeng

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. my %words=();
   
5. my $total = 0;
   
6. while(<>;){
   
7.     $words{$1}++,$total++ if(/^\s*(\w+)/);
   
8. }
   
9. 
   
10. my @keys =sort {$words{$b} <=>; $words{$a}} keys %words;
    
11. 
    
12. print "word\tcount\tpercent\n";
    
13. foreach(@keys){
    
14.     printf "%s\t$words{$_}\t%d%%\n", $_,$words{$_}/$total*100;
    
15. }
    

复制代码

输出结果：

1. 
   
2. #./a.pl data.in
   
3. word    count   percent
   
4. forever 3       30%
   
5. heart   2       20%
   
6. you     1       10%
   
7. in      1       10%
   
8. be      1       10%
   
9. will    1       10%
   
10. my      1       10%
    

复制代码

biomasm

多谢pupilzeng前辈!
顺利解决问题!承教!
严重学习中~~

寂寞烈火

shell:

1. 
   
2. /home/lee#n=$(cat tmp|wc -l);tr -d ' '<tmp|uniq -c|awk 'BEGIN{print "word count percent"}{print $2,$1,$1/'"$n"'*100"\%"|"sort -k3nr"}'
   
3. word count percent
   
4. forever 3 30%
   
5. heart 2 20%
   
6. be 1 10%
   
7. in 1 10%
   
8. my 1 10%
   
9. will 1 10%
   
10. you 1 10%
    

复制代码

PS:看来真要好好学习perl啦