[初学者求助]用perl求文本一列数值中每个数值出现的次数，谢谢，急！！

baiguihuajl

用perl求文本一列数值中每个数值出现的次数，谢谢！
原有文本如下：
b
a
c
a
v
s
s
b
c
s

希望得到的结果是
a        2
b        2
c        2
s        3
v        1
没有顺序要求,求大神帮助，谢谢~~~

b114213903

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. my $data={};
   
5. open (IN,"<a.txt");
   
6. while (<IN>){
   
7.         chomp;
   
8.         $data->{$_}++ if $_;
   
9. }
   
10. close IN;
    
11. 
    
12. foreach my $key(keys %{$data}){
    
13.         print "$key\t$data->{$key}\n"
    
14. }

复制代码

plabgh

您好，麻烦咨询您一个问题，帖子在：http://bbs.chinaunix.net/thread-4186533-1-1.html
谢谢。
回复 2# b114213903


   

baiguihuajl

回复 2# b114213903



谢谢哈~~~