Mega Code Archive

 

Categories / Perl / Regular Expression

 

Using grep with the file-test operators

#!/usr/local/bin/perl  opendir(CURRDIR, ".") ||  die("Can't open current directory");  @filelist = grep (!/^\./, grep(-r, readdir(CURRDIR)));  closedir(CURRDIR);  foreach $file (@filelist) {      open (CURRFILE, $file) || die ("Can't open input file $file");      while ($line = <CURRFILE>) {          if ($line =~ /$ARGV[0]/) {              print ("$file:$line");          }      }      close (CURRFILE);  }