home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch1 / includes < prev    next >
Encoding:
Text File  |  1992-10-18  |  498 b   |  23 lines
  1. #!/usr/bin/perl
  2.  
  3. # First extract the include lines from each file.
  4.  
  5. foreach $file (@ARGV) {
  6.     open(FILE, $file) || warn "Can't open $file: $!\n";
  7.     while (<FILE>) {
  8.     if (/^#include\s+["<]([^">]*)[">]/) {
  9.         $included = $1;
  10.         $includes{$file} .= $included . ' ';
  11.     }
  12.     }
  13. }
  14.  
  15. # Now print them out in sorted order.
  16.  
  17. foreach $target (sort keys(%includes)) {
  18.     $dependencies = $includes{$target};
  19.     foreach $dependency (split(/ /, $dependencies)) {
  20.     print "$target: $dependency\n";
  21.     }
  22. }
  23.