1 #!/usr/bin/perl -w
2 # File: status_dots.pl
3 # Author: Tom Large - tlarge@thelug.org
4 # Location: http://www.thelug.org/docs/
5 # Description: Displays status on the screen every 1000 passes.
6 # This is useful for jobs that seem to hang while crunching
7 # huge amounts of data.
8
9 @ARGV = ( "somefile" ) unless @ARGV;
10 while( <> )
11 {
12 $count++;
13 if ($count % 1000 == 0)
14 {
15 print "\nLine counter ... $count";
16 }
17 }