[perl5.git] / eg / down

#!/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;
}
Commit	Line	Data
a687059c LW	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	}