Programming

#!/usr/bin/perl -w
$ARGV[0]||='/home/user01/UnprocessedData.out';
open OR,$ARGV[0];
while (<OR>) {
  next if /^\s*$/;
  $linenum++;
} 
close OR;

 
bash-3.00$ ./test.pl
4

bash-3.00$ cat -n UnprocessedData.out
     1  a
     2  b
     3  c
     4  d
     5  
     6  
     7  
     8  
     9  
    10  

bash-3.00$ cat test.pl
#!/usr/bin/perl -w
$ARGV[0]||='/home/user01/UnprocessedData.out';
$linenum=0;
open OR,$ARGV[0];
while (<OR>) {
next if /^\s*$/;
$linenum++;
} 
print "$linenum\n";
close OR;

 
$: cat -n test
1  a
2  b
3  c
4  d
5  
6  
7  
8  e
9  f
10  
11  
12  g
13  
14  h

$:  perl -e 'while(<>){next if /^\s*$/;$count+=1;} print "$count\n"' test
8

perl -e 'printf"%d\n",(grep{/\S/}<>)+0' test