perl显示文件名目录名卷目录名 notepad++运行perl程序显示文件名,目录名或卷标语法是不正确的

在perl语言中如何打开一个目录，并显示该目录下的文件名？ opendir(DIR，\"/etc\")foreach(readdir DIR){print\"$_\\n；}closedir(DIR)；不知道对否文件删不掉，文件名，目录名或卷语标法不正确，doc删不掉，也没中病毒 1、尝试关闭相应的程序或者选择注销或者重新启动来删除；2、有些文件属于磁盘错误，使用CHKDSK/F X：X为相应的盘符；3、下载一些文件删除工具来删除。perl 如何打开指定路径下的文件？ 迭代的方式sub FindFileInDirWithStack{my$dir=$_[0]；my@FolderStack=()；push(@FolderStack，$dir)；while(1){my$currentSearchFolder=pop(@FolderStack)；if(defined($currentSearchFolder)=0){last；}opendir(DIR，$currentSearchFolder|die\"can't open this$currentSearchFolder\")；my@files=readdir(DIR)；closedir(DIR)；for my$file(@files){next if($file=~m/\\.$/|$file=~m/\\.\\.$/)；if($file=~/\\.(c|h|cpp)$/i){print\"$currentSearchFolder\\/$file \\n；}elsif(-d\"$currentSearchFolder/$file\"){push(@FolderStack，\"$currentSearchFolder/$file\")；}}}}

#perl