home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / BuildDistr < prev    next >
Encoding:
Text File  |  1995-11-06  |  401 b   |  29 lines  |  [TEXT/MPS ]

  1. perl -Sx "{0}" {"Parameters"}
  2. exit
  3.  
  4. #!perl
  5.  
  6. ($root) = @ARGV;
  7.  
  8. $/ = ':';
  9.  
  10. @dirs = (":");
  11.  
  12. while ($dir = shift @dirs) {
  13.     chomp $dir; 
  14.     print "TARGET \"$root$dir\"\n";
  15.     opendir(DIR, "$dir:");
  16.     @newdirs = ();
  17.     while ($item = readdir(DIR)) {
  18.         $item = "$dir:$item";
  19.         if (-d $item) {
  20.             push @newdirs, $item;
  21.         } else {
  22.             print "\t$item\n";
  23.         }
  24.     }
  25.     unshift @dirs, @newdirs;
  26.     closedir(DIR);
  27.     print "\n";
  28. }
  29.