home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / eg / down < prev    next >
Text File  |  1994-10-18  |  472b  |  31 lines

  1. #!/usr/bin/perl
  2.  
  3. $| = 1;
  4. if ($#ARGV >= 0) {
  5.     $cmd = join(' ',@ARGV);
  6. }
  7. else {
  8.     print "Command: ";
  9.     $cmd = <stdin>;
  10.     chop($cmd);
  11.     while ($cmd =~ s/\\$//) {
  12.     print "+ ";
  13.     $cmd .= <stdin>;
  14.     chop($cmd);
  15.     }
  16. }
  17. $cwd = `pwd`; chop($cwd);
  18.  
  19. open(FIND,'find . -type d -print|') || die "Can't run find";
  20.  
  21. while (<FIND>) {
  22.     chop;
  23.     unless (chdir $_) {
  24.     print stderr "Can't cd to $_\n";
  25.     next;
  26.     }
  27.     print "\t--> ",$_,"\n";
  28.     system $cmd;
  29.     chdir $cwd;
  30. }
  31.