#!/usr/bin/perl
$| = 1;
if
(
$#ARGV
>= 0) {
$cmd
=
join
(
' '
,
@ARGV
);
}
else
{
"Command: "
;
$cmd
= <stdin>;
chop
(
$cmd
);
while
(
$cmd
=~ s/\\$//) {
"+ "
;
$cmd
.= <stdin>;
chop
(
$cmd
);
}
}
$cwd
= `pwd`;
chop
(
$cwd
);
open
(FIND,
'find . -type d -print|'
) ||
die
"Can't run find"
;
while
(<FIND>) {
chop
;
unless
(
chdir
$_
) {
stderr
"Can't cd to $_\n"
;
next
;
}
"\t--> "
,
$_
,
"\n"
;
system
$cmd
;
chdir
$cwd
;
}