Thread Duplikate verschieben (7 answers)
Opened by Tom at 2011-12-31 12:05

Tom
 2011-12-31 12:05
#155209 #155209
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hallo,

Mit File::Find:Duplicate suche ich nach doppelten Dateien, ich weiß jetzt allerdings nicht wie ich alle Doppelten verschieben kann.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl

use strict;
use warnings;

use File::Find::Duplicates;

my @dupesets = find_duplicate_files('C:/test/');

foreach my $dupeset (@dupesets) {
print "Duplicate files: ", join(", ", @{ $dupeset->files } ), "\n";
print "MD5: ", $dupeset->md5, "\n";
print "Size: ", $dupeset->size, " Bytes\n";
print "\n";
}


Ich möchte eine Datei im Ursprungsverzeichnis belassen und die doppelten in ein anderes Verzeichnis verschieben.

Hat jemand einen Tipp für mich?

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

View full thread Duplikate verschieben