按perl中的元素计数

Question

我有一个类似这样的文件：

fan      apple banana orange mango
cooler   apple orange banana mango
cooler   apple orange banana mango
cooler   apple orange banana mango
fan      apple banana orange mango
fan      apple banana orange mango
cooler   apple orange banana mango
fan      apple banana orange mango

现在，当我逐行计算时，我想要在fan到来的时刻计数，并且需要随着每个风扇的增加而增加计数。喜欢

count 1
fan      apple banana orange mango
cooler   apple orange banana mango
cooler   apple orange banana mango
cooler   apple orange banana mango
count 2
fan      apple banana orange mango
count 3
fan      apple banana orange mango
cooler   apple orange banana mango
count 4
fan      apple banana orange mango

这就是我想要的输出。Help is appreciated...Thank you

Answer 1

#!/usr/bin/perl
use strict;
use warnings;

my $n = 0;
while (<>) {
    print "count ", ++$n, "\n" if /^fan\b/;
    print;
}

或者作为使用Perl 5.10+的一行程序：

perl -pE 'say "count ", ++$n if /^fan\b/'

Answer 2

在一行代码中：

perl -lane 'BEGIN{$c=1}; $F[0] eq "fan" && do{print "count ".$c++ }; print' file