求助perl循环

miemie_123

有一组数据：
0
0
0
0
1
2
0
0
5
8
0
0

非0数字共出现2次，想要统计每次出现的行数（2行）及出现次数（2次），应该怎么写？
感激不尽！

jason680

回复 1# miemie_123

$ perl -lane '{if($_!=0){$g++ if(!$n);$m=++$n}else{$n=0}}END{print "$m,$g"}' FILE
2,2

   

miemie_123

多谢！
我是想分别统计每次出现的行数，该怎么写呢？
回复 2# jason680


   

jason680

回复 3# miemie_123

example ?

   

miemie_123

就是这组数据，我想要的结果是：
第一次，2行；
第二次，2行；
共2次
回复 4# jason680


   

ba_du_co

非0数字共出现统计大概 = 4 次
第1 次出现 大概 = 1 行
第2 次出现 大概 = 2 行
第3 次出现 大概 = 2 行
第4 次出现 大概 = 3 行

大概
my $not0;
my @ary;

while (<DATA>) {
    if ( $_ == 0 ) { $not0 = 0; }
    else           { $not0++ ? $ary[-1]++ : push @ary, 1; }
}

my $i = 1;
say '非0数字共出现统计大概 = ' . @ary . ' 次';
print map { '第' . $i++ . " 次出现 大概 = $_ 行\n" } @ary;

__DATA__
0
1
0
0
1
2
0
0
5
8
0
0
1
1
1

jason680

回复 5# miemie_123

add more message by yourself

$ perl -lane '{if($_!=0){$c++ if(!$n++)}else{print "$c:$n"if($n);$n=0}}END{print "Total:$c"}' FILE
1:2
2:2
Total:2

   

miemie_123

初学perl，已受教，多谢！！
回复 6# ba_du_co


   

yeahnoob

LZ ，你这个例子直接用grep 还直接点儿，自己写细节是完全没必要。

miemie_123

用grep没法得出次数吧，我初学，没想明白怎么用grep
回复 9# yeahnoob