如何在perl中删除非空目录？

nooby

Perl 中我想删除一个非空目录：
  system("rmdir   dirname" || die "can not delete this dir";
它会提示目录非空，该如何解决呢？ 谢谢！

C.Arthur

rm -R

nanaskylead

system("rm -rf dirname" || die "can not delete this dir";

nooby

Thanks nanaskylead

可否system("rm -rf  *cell" || die "can not delete this dir";
删除目录中带cell的所有目录呢？

nanaskylead

system("rm -rf *cell*" || die "can not delete this dir"

cell后面要带*号，否则只匹配cell结尾的。

nooby

楼上的老大，这个命令你试过吗？我为什么还是试不成功。我的系统是Solaris 8

beginner-bj

肯定可以。
perl里的system("rm -rf *cell*"就是普通shell里的rm -rf *cell

C.Arthur

shell高手都站出来说话了，你还不信啊

*************
**2000贴留念**
*************

nanaskylead

我在想他为什么会不成功，没可能的啊。。。。。。
每个贴子都能看到你，C.Arthur你个水王！

victorxu79

system("rm -rf *cell*" or die "can not delete this dir"