根据文件大小清理重复文件的脚本

Question

我在 Windows XP 计算机上存储了一些备份日志文件，如下所示：

1.txt
2.txt
3.txt
4.txt
5.txt

所有这些文件的文件 1-3 具有相同的文件大小，2-5 的文件具有相同的文件大小。我想存储每组中具有相同文件大小的其中一个，并删除其余的。有人可以建议一个脚本来做到这一点吗？

Answer 1

来自 File::Find::Duplicates 的工作示例（稍微改编）可能是一个好的开始：

use File::Find::Duplicates;

my @dupes = find_duplicate_files('/tmp/dup');

foreach my $dupeset (@dupes) { 
    printf "Files %s (of size %d) hash to %s\n",
    join(", ", @{$dupeset->files}), $dupeset->size, $dupeset->md5;
}

File::Find::Duplicates 匹配大小和 MD5 校验和，这可能就是您想要的。