使用 Perl 如何清理没有文件的剩余目录？

Question

有一个特定的目录被某些程序用作临时/临时目录。
例如。 /a/b/c/work
在工作中可能存在多个分层目录，例如

/a/b/c/work/  
            \d1/   
               \d1.1  
             \d2
                \d2.2  

我想要清理这个工作目录，因为有剩余的文件占用空间。
本质上，我需要删除叶子目录为空的工作下的所有子目录。
因此，如果 d1.1 为空但 d2.2 有文件，则删除 d1 下的所有内容（包括 d1）但不删除 d2。
在 perl 中执行此操作的最干净/标准的方法是什么？
我想使用带有反引号的解决方案，例如rm -rf 等，但我认为可能有比 rm 之后的 ls 编码序列更好的方法

注意：只是为了清楚。我想要 Perl 中的解决方案，因为这不是一次性的事情，我不想每次都手动执行此操作

Answer 1

如果你用这种方式使用find命令你可以实现它。

find /path/to/dir -empty -type d -delete

在哪里，

-empty 只查找空文件，并确保它是常规文件或目录。

-type d 只匹配目录。

-delete删除文件。

始终将 -delete 选项放在 find 命令的末尾，因为 find 命令行被评估为表达式，因此将 -delete 放在首位将使 find 尝试删除您指定的起点以下的所有内容。

要在 shell 脚本中自动执行此操作，请遵循以下代码：

path=`pwd`

find $path -empty -type d -delete

或者您可以将某些输入作为 shell 脚本的参数，如 myShell.sh /path/to/mydir 在这种情况下，以下代码将完成工作，

$path=$1

find $path -empty -type d -delete

至于如果你真的想去perl你可以找到你的答案如下

use strict;
use warnings;

use File::Util;

my $path = '...';

my $fu         = File::Util->new();
my @all_dirs   = $fu->list_dir($path, '--recurse', '--dirs-only');
my @empty_dirs = grep { not $fu->list_dir($_) } @all_dirs;

也是一个简短的方法

perl -MFile::Find -e"finddepth(sub{rmdir},'.')"

这解释得很好here。