eg/down

   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 }