You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
339 B
22 lines
339 B
#!/usr/bin/perl -w
|
|
|
|
use Cwd;
|
|
my $pwd = Cwd::cwd();
|
|
&mkdirp($pwd.'/a/b/c');
|
|
|
|
die unless -d 'a/b/c';
|
|
system 'rm -rf a/';
|
|
exit $?;
|
|
|
|
sub mkdirp { # TBD : implemend a mkdir -p
|
|
my @fp = ();
|
|
for my $p (split('/',$_[0])) {
|
|
push @fp,$p;
|
|
my $fp = join'/',@fp;
|
|
printf "fp: %s\n",$fp;
|
|
mkdir $fp unless -d $fp;
|
|
}
|
|
return $?;
|
|
}
|
|
|
|
|