PERL - 检查c：\ temp是否包含任何文件，如果为空 - 删除c：\ temp目录

Question

我需要一个IF语句来检查c：\ temp是否包含任何文件。如果它是空的，我将要删除该c：\ temp文件夹。我想删除c：\ temp目录，如果它没有任何内容。

Answer 1

要删除文件，请使用unlink。取消链接会获取您可以从glob获得的文件名列表。

简单的方法是不使用if语句：

unlink glob 'c:/temp/*';

删除整个目录，如果为空：

$dir = 'c:/temp';
@files = glob "$dir/*";            # Get files in c:/temp/
rmdir $dir unless(scalar @files);  # Remove directory if empty