http://www.perlmonks.org?node_id=40799


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;

[download]

Replies are listed 'Best First'.
RE: Re: perl
by the_slycer (Chaplain) on Nov 10, 2000 at 08:36 UTC
    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
[reply]
RE: Re: perl
by Fastolfe (Vicar) on Nov 10, 2000 at 00:43 UTC
    This is the best solution I would use, though /\S/ is sufficient.
[reply]
[d/l]

In Section Seekers of Perl Wisdom