Question

请问perl这段代码中的copy为什么会报错？

如题，一直提示找不到文件或文件路径。目的是搜索当前文件夹下的所有带.gz后缀的文件复制到当前文件夹的files里面。
复制报错：没有相应的文件和路径

print $file. "\n"; #可以输出file文件





Answer 1

readdir返回的文件名不包括路径，直接copy非当前路径下的文件会报错，应该copy "$subDir/$file", "$newdir/"

追问

您好，按照您的修改可以复制了，十分感谢。可是复制为什么会报错呢，提示存在相同的文件，可是实际上是已经复制了，应该怎么修改代码让它不报错呢。还想请教一下，用Compress::Zlib模块如何解压位于files文件目录下的所有.gz文件并删除压缩包，万分感谢。