NAME

File::Dedup - Deduplicate files across directories

VERSION

version 0.001

SYNOPSIS

 use File::Dedup;
 File::Dedup->new( directory => '/home/hunter/', recursive => 1 )->dedup;

 or 

 use File::Dedup
 my $deduper = File::Dedup->new( 
    directory => '/home/hunter/', 
    recursive => 1, 
    ask       => 0,
 );
 $deduper->dedup;

DESCRIPTION

A small utility to identify duplicate files in a given directory and optionally delete them

NAME

File::Dedup

METHODS

dedup

Identifies and eliminates duplicate files based on the options supplied by the user.

_file_md5

Private subroutine. Given a filename, computes the MD5 checksum of the contents of the file.

_handle_duplicates

Private subroutine. Passed a hashref of duplicates files group by MD5 checksum, this subroutine determines which files should be deleted. Some user input is required unless the ask option was set to 0.

_purge_files

Private subroutine. Passed an arrayref of filenames, deletes these files.

_delete_file

Private subroutine. Given a filename, deletes the corresponding file using the unlink built-in

_prompt

Private subroutine. Reads user input from STDIN, encapsulated in a subroutine for testing purposes.

_dirwalk

Private subroutine. Recursively (if the recursive option is enabled) walks the supplied directory path. Two functions are supplied as input to _dirwalk: one for files and one for directories. They are applied respectively to each file or directory encountered during the recursive search.

AUTHOR

Hunter McMillen <mcmillhj@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Hunter McMillen.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.