统计问题

newfinder

各位大侠，小弟刚上手perl，现在想统计一个文本，如下：

ND1 AA BB 00 CC DD 00 00 DD
ND2 BB AA CC 00 DD 00 00 AA
HL DD CC AA 00 00 00 DD BB
NEL CC CC DD AA 00 00 BB DD

统计每行中出现00的次数和频率，即输出结果为：
ND1: 3 0.375
ND2: 3 0.375
HL: 3 0.375
NEL: 2 .25

应该怎么写呢？

yestreenstars

1. [root@localhost ~]# cat i
   
2. ND1 AA BB 00 CC DD 00 00 DD
   
3. ND2 BB AA CC 00 DD 00 00 AA
   
4. HL DD CC AA 00 00 00 DD BB
   
5. NEL CC CC DD AA 00 00 BB DD
   
6. [root@localhost ~]# perl -lane 'printf "%s:\t",shift @F;1 while(/00(?{$n++})/g);printf "%d\t%f\n",$n,$n/@F;$n=0' i
   
7. ND1:    3       0.375000
   
8. ND2:    3       0.375000
   
9. HL:     3       0.375000
   
10. NEL:    2       0.250000
    
11. [root@localhost ~]#

复制代码

reyleon

1. awk '{for(i=0;++i<=NF;)a[NR$i]++;print $1"\t"a[NR"00"]"\t"a[NR"00"]/(NF-1)}' file   

复制代码

凑个热闹

newfinder

回复 2# yestreenstars
好棒呀！
这一行代码怎么就学明白了呢


   

newfinder

回复 3# reyleon

大神的话实在让我感到惭愧啊，我现在连个热闹都凑不上，悲哀……
   

kernel69

1. $ perl -lane 'print $F[0],"\t",$f=$_=~s/00/00/g,"\t",$f/$#F' a
   
2. ND1        3        0.375
   
3. ND2        3        0.375
   
4. HL        3        0.375
   
5. NEL        2        0.25
   
6. $

复制代码

回复 1# newfinder


   

yestreenstars

回复 6# kernel69
真棒~

   

kernel69

大牛过奖了，还得多向大牛学习
回复 7# yestreenstars


   

rubyish

凑个热闹:

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. while (<DATA>) {
   
4.     my ( $A, @B ) = split;
   
5.     my $S = grep /00/, @B;
   
6.     say join "\t", $A, $S, $S / @B;
   
7. }
   
8. 
   
9. __DATA__
   
10. ND1 AA BB 00 CC DD 00 00 DD
    
11. ND2 BB AA CC 00 DD 00 00 AA
    
12. HL DD CC AA 00 00 00 DD BB
    
13. NEL CC CC DD AA 00 00 BB DD

复制代码

pitonas

{:2_172:} 好厉害的小伙伴们, 这个必须赞一个了。
回复 6# kernel69