new features

list_same/list_same

@@ -6,11 +6,13 @@
 # Generates a list of files in cur. dir which are actually the same
 # Compares size and MD5 checksum
 # Handy for cleaning up pictures like this:
-# list_same -es | xargs rm
+# list_same -sd
 
 # wishlist:
 #	- entering a list of file to check on the commandline
 #	- option to ignore 0 length files
+#	- recurse through directories
+#	- hardlink same files
 
 use strict;
 use Digest::MD5;
@@ -33,13 +35,18 @@ if ( $opts{m} ) {
 # functions
 
 sub cmdline {
-	getopts('dehms', \%opts);
+	getopts('dehlms', \%opts);
 	if ( $opts{h} ) { &help; }
 
 	map { if ( -d $_ ) { s/\/$//; push @dirs, $_; } else { die "$_ not a directory" } } @ARGV;
 	if ( scalar @dirs == 0 ) {
 		push @dirs, ".";
 	}
+
+	if ( $opts{l} && ( $opts{e} || $opts{d} || $opts{s} ) ) {
+		print "-l doens't combine with -d, -e or -s\n\n";
+		&help;
+	}
 #	map { print "$_\n"; } @dirs;
 }
 
@@ -249,6 +256,8 @@ Usage: $name [OPTION] ...
 	-d		delete resulting files
 	-e		escape output filenames with backslashes
 	-h		display this help message
+	-l		hardlink resulting files (no change if on
+			different filesystems)
 	-m		mp3 compare, ignores ID3 tags (slow)
 	-s		skip the first entry for doubles