On Fri, 4 May 2001, Susan Richter wrote:
> Can someone tell me what command I can use to go to machines and count the
> lines on a certain file? I have log files for every machines (20 all
> together). Each log file has lines that would equate to the files that it
> found. I need to know how many files are found on all the machines. I am
> using Perl 5 on NT.
Here's a code snippet to do it:
my $file = $ARGV(0);
open(FILE, "<$file") or die "Could not open $file: $!\n";
my $counter = 0;
while(<FILE>) { $counter++; }
close(FILE);
print "$counter\n";
-- Brett
http://www.chapelperilous.net/btfwk/
------------------------------------------------------------------------
Shhh... be vewy, vewy, quiet! I'm hunting wabbits...
