Question

perl程序如何删除文件夹下的所有文件且不删除文件夹下的文件夹

如 在d盘下 有文件夹a，文件夹a中有很多个文件（这些个文件我不知道叫什么名字）和很多个文件夹(同样不知道文件夹的名字),现在我希望写一段程序 删除d盘a文件夹中的所有文件而不删除那些文件夹 该如何写程序。

不胜感激!

Answer 1

-f Entry is a plain file
-d Entry is a directory

程序段如下：
opendir(DIR, "D:/a") or die $!;
while (my $file = readdir(DIR)) {
if (-f "$dir/$file") {unlink "$dir/$file";}
}
closedir DIR;

这段程序经过了成功的试验。