projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
perlfaq typos
[p5sagit/p5-mst-13.2.git]
/
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
}