求助：如何删除目录

ubac

我有一个文件夹:data，现在想该文件夹下的所有文件夹、文件都删除掉，但是data这个文件夹不能删除。

1、rmdir只能删除空的文件夹，对于非空文件夹不生效；

2、

1. use File::Path;
   
2. rmtree("../data/");

复制代码

会将data这个文件夹也删除掉

3、system("rm -r ../data/"也会将data文件夹删除

难道只能遍历每一层目录，将目录下的文件删除后，再将文件夹删除？

atgc

rm -rf data
mkdir data

ubac

1. rm -rf data
   
2. mkdir data

复制代码

这个到也算一个不错的方法

但是我不想再创建一个文件夹，不知道有没有其他的方法？

路小佳

1. 
   
2. use File::Path;
   
3. -d $_?rmtree($_):unlink $_ foreach (<data/*>);
   

复制代码

[ 本帖最后由 路小佳 于 2007-1-24 20:28 编辑 ]

ubac

1. use File::Path;
   
2. -d $_?rmtree($_):unlink $_ foreach (<data/*>);

复制代码

Excelent!
Thank you very much!

ubac

应该也可以这样：

1. system( "rm -r $_" ) foreach ( <data/*> )

复制代码

orangetouch

原帖由 ubac 于 2007-1-24 19:34 发表

1. 3、system("rm -r ../data/")也会将data文件夹删除
   
2. 
   
3. 难道只能遍历每一层目录，将目录下的文件删除后，再将文件夹删除？

复制代码

system("rm -r ../data/*")

among29

为了跨平台,还是用 unlink 吧

wannachan

前两天刚好写了一个, 呵呵:
-------------------------------
#deltree.pl

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. 
   
5. #Used to remove a directory which is not empty.
   
6. 
   
7. #check if the input is legal.
   
8. if(@ARGV < 1) {
   
9.   print "You have to specified one directory at least!\n";
   
10.   print "Usage: perl rmpath path";
    
11.   exit;
    
12. } elsif(!(-d $ARGV[0])) {
    
13.   print "The directory you input does not exist!";
    
14.   exit;
    
15. }
    
16. 
    
17. #Get the directory you want to delete.
    
18. my $path = $ARGV[0];
    
19. #remove it!
    
20. &rm($path);
    
21. 
    
22. #the process function.
    
23. sub rm{
    
24.   my $path = $_[0];
    
25.   chdir $path;
    
26. 
    
27.   #get all the files in that directory.
    
28.   @_=<*>;
    
29.   for(@_){
    
30.     if(-d $_){
    
31.       #if the destination file is a directory, go recursion.
    
32.       rm($_);
    
33.     }else{
    
34.       unlink;
    
35.     }
    
36.   }
    
37. 
    
38.   #Go up and del the destination directory.
    
39.   chdir "../";
    
40.   rmdir $path;
    
41. }

复制代码

pxczy

楼上的忒复杂了