perl - A script that can tell how many lines per second -
I do not know how and how to explain it, but I am trying to tell that in per second list How many rows are included.
"text">
line-counter.pl
#! / Bin / perl my $ last_time = time (); My $ line_count = 0; While (<< (time ()> $ last_time) {$ last_time = time (); Print line_count "\ N"; $ Line_count = 0; } $ Line_count ++; }
Usage: tail -f /the/file.log | Perl -w line-counter.pl
Comments
Post a Comment