删除一个非空目录方法

 删除一个非空目录方法

   1. #如何调用 
   2. deleteFolder("test"); 
   3.  
   4. #Used to remove a directory which is not emptyempty. 
   5. #the process function. 
   6. sub deleteFolder{ 
   7.   my $path = $_[0]; 
   8.   chdir $path; 
   9.  
  10.   #get all the files in that directory. 
  11.   @_=<*>; 
  12.   for(@_){ 
  13.     if(-d $_){ 
  14.       #if the destination file is a directory, go recursion. 
  15.       deleteFolder($_); 
  16.     }else{ 
  17.       unlink; 
  18.     } 
  19.   } 
  20.  
  21.   #Go up and del the destination directory. 
  22.   chdir "../";