[初學(xué)者求助]用perl求文本一列數(shù)值中每個數(shù)值出現(xiàn)的次數(shù)，謝謝，急��！

baiguihuajl

用perl求文本一列數(shù)值中每個數(shù)值出現(xiàn)的次數(shù)，謝謝！
原有文本如下：
b
a
c
a
v
s
s
b
c
s

希望得到的結(jié)果是
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. }

復(fù)制代碼

plabgh

您好，麻煩咨詢您一個問題，帖子在：http://72891.cn/thread-4186533-1-1.html
謝謝。
回復(fù) 2# b114213903


   

baiguihuajl

回復(fù) 2# b114213903



謝謝哈~~~