Perl删除目录中的所有文件

Question

如何在Perl中删除目录中所有文件的(而不删除目录)？

我的主机最多只允许250,000个"file"，而我的/tmp文件夹会使用所有 session cookie来快速填充250,000 qouta。在这种情况下，我无法删除/tmp文件夹。我只允许删除其中的文件。

编辑:

FTP客户端和文件管理器并不完全希望打开该文件夹...我想是因为其中包含大量文件。

Answer 1

my $errors;
while ($_ = glob('/tmp/* /tmp/.*')) {
   next if -d $_;
   unlink($_)
      or ++$errors, warn("Can't remove $_: $!");
}

exit(1) if $errors;