Jasmine
Administrator
Jan 26, 2001, 10:02 AM
Post #1 of 1
(1202 views)
|
|
How do I count the number of lines in a file?
|
Can't Post
|
|
(From the Perl FAQ)
How do I count the number of lines in a file?
One fairly efficient way is to count newlines in the file. The following program uses a feature of tr///, as documented in the perlop manpage. If your text file doesn't end with a newline, then it's not really a proper text file, so this may report one fewer line than you expect. $lines = 0;
open(FILE, $filename) or die "Can't open `$filename': $!";
while (sysread FILE, $buffer, 4096) {
$lines += ($buffer =~ tr/\n//);
}
close FILE;
|
MAIN
SEARCH
WHO'S 
LOG 