Skip to content

Instantly share code, notes, and snippets.

View pen's full-sized avatar

Abe Masahiro pen

17 followers · 1 following
  • Tokyo
View GitHub Profile
@pen
pen / find-dup
Created February 1, 2010 11:11
#!/usr/bin/perl -w
#
# usage: find-dup <dir> [<dir>...]
#
use strict;
use File::Find;
use IO::File;
use Digest;
my $digest_method = "MD5";