统计问题

skyyy90

我不得不怒赞9楼！

shan_echo

大神就是厉害啊！简洁易懂！

qq27898

求拥抱。。。。看完以后默默的抄了下来

jzp520520

用菜鸟的方式解答菜鸟问题，毕竟我还是一个菜鸟！
#!/usr/bin/perl
use strict;
use warnings;
print map {my $i=0; my @b =split;
                map {$_ eq "00"  ?   $i++ : $i }@b;
                "$b[0]i\t",$i/8,"\n"}<DATA>;

__DATA__
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

jzp520520

重新发一下，怎么搞出一个默认的表情？
print map {my $i=0; my @b =split;
                map {$_ eq "00"  ?   $i++ : $i }@b;
                "$b[0]: $i\t",$i/8,"\n"}<DATA>;