Re: perl

[kilinrax]

in reply to perl

Assuming by 'empty' you mean 'containing only space characters':

open FILE, "file.txt";
my $count;
while (<FILE>) {
  $count++ unless /\S+/;
}
close FILE;
print $count;

[Fastolfe]

This is the best solution I would use, though /\S/ is sufficient.

[the_slycer]

Just as a footnote, if you do not want to count lines that contain a tab or some other such whitespace, you can substitue /\S+/ with /^$/ in either this code or in Fastolife's below