home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
perl502b.zip
/
eg
/
down
< prev
next >
Wrap
Text File
|
1994-10-18
|
472b
|
31 lines
#!/usr/bin/perl
$| = 1;
if ($#ARGV >= 0) {
$cmd = join(' ',@ARGV);
}
else {
print "Command: ";
$cmd = <stdin>;
chop($cmd);
while ($cmd =~ s/\\$//) {
print "+ ";
$cmd .= <stdin>;
chop($cmd);
}
}
$cwd = `pwd`; chop($cwd);
open(FIND,'find . -type d -print|') || die "Can't run find";
while (<FIND>) {
chop;
unless (chdir $_) {
print stderr "Can't cd to $_\n";
next;
}
print "\t--> ",$_,"\n";
system $cmd;
chdir $cwd;
}