Re: 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]

Comment on Re: perl Download Code

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]