Opened by Tom at 2011-12-31 12:05
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
so in etwa:
aber wie gesagt, wenn du mehrere ebenen hast, must du eventuell die verzeichnisstruktur noch erstellen, da es ja dateien mit denselben namen geben kann.
Code (perl): (dl
)
1 2 3 4 5
my $dupes = $dupeset->files; shift @$dupes; # eine datei behalten for my $dupe (@$dupes) { move($dupe, 'C:\doppelt\\'); }
aber wie gesagt, wenn du mehrere ebenen hast, must du eventuell die verzeichnisstruktur noch erstellen, da es ja dateien mit denselben namen geben kann.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem