Commit | Line | Data |
a687059c |
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 | } |