tools/find_extension_in_files.pl

   1 $dir = shift @ARGV;
   2 $lookIn = shift @ARGV;
   3 $lookFor = shift @ARGV;
   4 die "usage: directory extension_to_look_within extension_to_look_for\n" if (!defined($lookFor));
   5
   6 sub dodir
   7 {
   8         local($dir) = @_;
   9
  10         opendir(DIR, $dir) || die "opendir failed";
  11         local(@dir) = readdir(DIR);
  12         closedir(DIR);
  13
  14         foreach (@dir)
  15         {
  16                 next if ($_ eq '.');
  17                 next if ($_ eq '..');
  18                 local($path) = $dir . '/' . $_;
  19
  20                 if (-d $path)
  21                 {
  22                         &dodir($path);
  23                 }
  24                 else
  25                 {
  26                         push(@files, $path) if (/\.$lookIn$/)
  27                 }
  28         }
  29 }
  30 &dodir($dir);
  31
  32 foreach $file (sort @files)
  33 {
  34         open(STRINGS, 'strings ' . $file . ' |');
  35         while (<STRINGS>)
  36         {
  37                 chomp;
  38                 print $file . "\t" . $_ . "\n" if (/\.$lookFor$/);
  39         }
  40 }