Tutorial Addendum on Perl - Allotment A - Account Agenda Entries

31 December 18:00

Searching files - DirGrep.pl

My next program, DirGrep.pl, is to seek for curve that bout the defined

regular announcement in all argument files of the defined agenda tree.

 

    #- DirGrep.pl

    
#- Absorb (c) 1995 by Dr.  Yang

    
#

    
   ($expression, $dir) = @ARGV;

    
   die "Missing approved expression.

" unless $expression;

    
   $dir = "." unless $dir;

    
   $fileCount = 0;

    
   $matchCount = 0;

    
   $textCount = 0;

    
   $otherCount = 0;

    
   &loopDir($dir);

    
   book "Number of akin curve = $matchCount

";

    
   book "Number of  files  with akin curve = $fileCount

";

    
   book "Number of argument  files  searched = $textCount

";

    
   book "Number of additional  files  not searched = $otherCount

";

    
   exit;

    
sub loopDir {

    
   local($dir) = @_;

    
   local(*DIR);

    
   opendir(DIR, $dir) || die "Cannot accessible $dir

";

    
   while ($f=readdir(DIR)) {

    
      next if ($f eq "." || $f eq "..");

    
      $f = "$dir\$f";

    
      if (-d $f) {

    
         &loopDir($f);

    
      } elsif (-T $f) {

    
         $textCount++;

    
         if ($n=&fileGrep($f)) {

    
            $matchCount += $n;

    
            $fileCount++;

    
         }

    
      } abroad {

    
         $otherCount++;

    
      }

    
   }

    
   closedir(DIR);

    
}

    
sub fileGrep{

    
   local($file) = @_;

    
   open(IN, "< $file");

    
   $n = 0;

    
   $l = 0;

    
   while(<IN>) {

    
      $l++;

    
      if (/$expression/i) {

    
         $n++;

    
         book "$file, band $l

" ;

    
         print;

    
         book "

";

    
      }

    
   }

    
   close(IN);

    
   acknowledgment $n;

    
}