#!/usr/bin/perl

#wcl
#2005-04-19
#Author: Mafuyu Kitahara
#Purpose: count number of lines skipping empty line
#Input: text file(s) 
#Output: stdout

## Front end
die "Usage: wcl [fragment of filename]\n" unless @ARGV;


$filename =$ARGV[0];
opendir(DIR, ".");
@files = grep(/$filename/, readdir(DIR));
closedir(DIR);

foreach $file (@files) {

  open (DATA, "$file");
  $count = 0;
    while (<DATA>) {
      next if (/^$/);
      $count++;
    }
  print "$count lines in $file \n";
}