linux - 如何在perl中开发一个脚本，可以递归删除子文件夹和父目录中的数据？

Question

你好，文件夹结构如下

mishel/      #Parent directory  
      mike1  #sub file of mishel  
      minni1 #sub file of mishel  
      rosy1  #sub file of mishel
        rocky/      #sub directory of mishel
             missi  #subfile of rocky
             marsh  #subfile of rocky
             milly  #subfile of rocky 
               monu/     #sub directory of rocky
                  mike  #sub file of monu
                  minni #sub file of monu
                  rosy  #sub file of monu

所以这是我的问题:我想使用一个脚本，它可以一次自动删除所有文件和子文件夹。

如果我们使用函数“rmdir(dirname)”，目录必须是空的。那么有没有可能从子目录开始往父目录删除。

Answer 1

编写一个以目录作为参数的函数。让该函数在目录中执行 readdir。对于 readdir 返回的每个项目，检查它是否是文件 - 如果是，则将其删除。如果它是目录，则使用子目录作为参数再次调用该函数。如果没有项目(. 和 .. 除外)，请删除该目录。