Opened by nastja at 2010-04-15 15:57
User since
2010-04-15
20 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-04-15
20 Artikel
BenutzerIn
Hallo alle zusammen,
ich habe ein Problem, ich weiß nicht, wie ich die Verzeichnisstrukturen und alle Dateien, die sich da befinden von einem Ordner in ein anderes verschieben kann.
Wenn diese Dateien in ein neues Ordner kopiert werden, müßen die im alten Ordener gelöscht werden. Kann mir vielleicht einer dabei helfen???
Bis jetzt habe ich geschafft alle Elemente aus einem Ordner zu sortieren, und die danach zu verschieben.... klappts eigentlich auch, aber es werden nur die Dateien ohne Ordnern verschobenm d.h. die Strukturbäume von Verzeichnissen gehen verlören,
hier ist mein Code, könnt ihr mir an dieser Stelle weiter helfen.....
ich bedanke mich in vorraus.....
Last edited: 2010-04-15 16:01:04 +0200 (CEST)
ich habe ein Problem, ich weiß nicht, wie ich die Verzeichnisstrukturen und alle Dateien, die sich da befinden von einem Ordner in ein anderes verschieben kann.
Wenn diese Dateien in ein neues Ordner kopiert werden, müßen die im alten Ordener gelöscht werden. Kann mir vielleicht einer dabei helfen???
Bis jetzt habe ich geschafft alle Elemente aus einem Ordner zu sortieren, und die danach zu verschieben.... klappts eigentlich auch, aber es werden nur die Dateien ohne Ordnern verschobenm d.h. die Strukturbäume von Verzeichnissen gehen verlören,
hier ist mein Code, könnt ihr mir an dieser Stelle weiter helfen.....
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
foreach (@allFiles){
Move($_,$bakupdir);
}
#STRUKTUR VON DIREKTORYS ERZEUGEN
#*********************************************
sub Move {
my ($dir_file, $bakup) = @_;
my @dirs = split '/', $dir_file;
my $file = pop @dirs;
foreach (@dirs) {
next if -d $bakup;
mkdir($bakup) or print("Can't create dir $bakup: $!"),return undef;
}
rename($dir_file, "$bakup/$file") or
print("Can't move $dir_file to $bakup: $!"),return undef;
return 1;
}ich bedanke mich in vorraus.....
Last edited: 2010-04-15 16:01:04 +0200 (CEST)