-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;这段程序经过了成功的试验。
