Perl – How to count the characters, words, and lines in a file, using Perl

countingfileperl

What is a good/best way to count the number of characters, words, and lines of a text file using Perl (without using wc)?

Best Answer

Here's the perl code. Counting words can be somewhat subjective, but I just say it's any string of characters that isn't whitespace.

open(FILE, "<file.txt") or die "Could not open file: $!";

my ($lines, $words, $chars) = (0,0,0);

while (<FILE>) {
    $lines++;
    $chars += length($_);
    $words += scalar(split(/\s+/, $_));
}

print("lines=$lines words=$words chars=$chars\n");