Chip 2000 May/Chip_2000-05_cd1.bin/zkuste/Perl/ActivePerl-5.6.0.613.msi/䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥/_647a5c185607f196e709a4125e8a7e94

Text File | 2000-03-15 | 502b | 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;
}