想用perl实现文件比对的功能

  1. 找出当前目录以及子目录的所有文件。
  2. 如果一个文件重复在多个子目录里出现,判断他们是否相同,如果有一个文件与其他文件不同,则输出该文件名到指定文件。

输入:无
输出:一个包含上面要求的文件名的文件。

参考一下:https://blog.csdn.net/nciaebupt/article/details/6973311
如果对你有帮助,可以点击我这个回答右上方的【采纳】按钮,给我个采纳吗,谢谢

创建一个字典,以相对路径作为key,文件的hash作为value,然后比较hash是否相等就可以了