Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
      print "Duplicate Files:  @{$md5sum{$ky}}, Md5sum: $ky\n";
    }
}

Select or download this

-bash-3.2$ ./duplicate_files.pl directory
Duplicate Files:  file4 file2 file3, Md5sum: d41d8cd98f00b204e9800998e
+cf8427e
Unique File: file6 , Md5sum: d617c2deabd27ff86ca9825b2e7578d4
Duplicate Files:  file1 file5, Md5sum: 5bb062356cddb5d2c0ef41eb2660cb0
+6