File::Find::Duplicates - Find duplicate files
use File::Find::Duplicates; my @dupes = find_duplicate_files('/basedir1', '/basedir2'); foreach my $dupeset (@dupes) { printf "Files %s (of size %d) hash to %s\n", join(", ", @{$dupeset->files}), $dupeset->size, $dupeset->md5; }
This module provides a way of finding duplicate files on your system.
my %dupes = find_duplicate_files('/basedir1', '/basedir2');
When passed a base directory (or list of such directories) it returns a list of objects with the following methods:
A listref of the names of the duplicate files.
The size of the duplicate files.
The md5 sum of the duplicate files.
Check the contents of tars, zipfiles etc to ensure none of these also exist elsewhere (if so requested).
File::Find.
Tony Bowden
Please direct all correspondence regarding this module to: bug-File-Find-Duplicates@rt.cpan.org
Copyright (C) 2001-2005 Tony Bowden. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
To install File::Find::Duplicates, copy and paste the appropriate command in to your terminal.
cpanm
cpanm File::Find::Duplicates
CPAN shell
perl -MCPAN -e shell install File::Find::Duplicates
For more information on module installation, please visit the detailed CPAN module installation guide.