home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.6.1.638-MSWin32-x86.msi / _5827199573a2e9e532b7a0b9fcabbaa6 < prev    next >
Encoding:
Text File  |  2004-04-13  |  502 b   |  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.