一个脚本，可以告诉每秒多少行

Question

我不知道如何解释这一点，但是我试图告诉每秒有多少行添加到列表中。我无法弄明白，在Perl中寻找解决方案。

即使它在bash中有效。

Answer 1

line-counter.pl

#!/bin/perl

my $last_time = time();
my $line_count = 0;
while (<>){
   if ( time() > $last_time ){
     $last_time = time();
     print $line_count . "\n";
     $line_count = 0;
   }
   $line_count++;
}

用法：tail -f /the/file.log | perl -w line-counter.pl