Opened by Gast at 2006-06-13 13:32
Hallo!
Ich benötige ein Script, das die Dateien aus einer Verzeichnisstruktur (Hauptverzeichnis: Structure/, beliebig viele Unterverzeichnisse) in die gleiche Verzeichnisstruktur, nur unter ein anderes Hauptverzeichnis: Structure.Backup/ verschiebt.
Mein Script verschiebt aber nur die Dateien auf der ersten Ebene in das andere Hauptverzeichnis. Die Verzeichnisstruktur im Backup-Bereich ist bereits angelegt.
Wie geht das?
Vielen Dank!
\n\n
<!--EDIT|renee|1150191408-->
Ich benötige ein Script, das die Dateien aus einer Verzeichnisstruktur (Hauptverzeichnis: Structure/, beliebig viele Unterverzeichnisse) in die gleiche Verzeichnisstruktur, nur unter ein anderes Hauptverzeichnis: Structure.Backup/ verschiebt.
Mein Script verschiebt aber nur die Dateien auf der ersten Ebene in das andere Hauptverzeichnis. Die Verzeichnisstruktur im Backup-Bereich ist bereits angelegt.
Wie geht das?
Vielen Dank!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
my $path_files = "Structure/";
my $path_files_history = "Structure.Backup/";
# Verz. zum lesen oeffnen
opendir (BASE, $path_files) || die "Cannot read directory: ";
# Verzeichnis einlesen (checken ob datei)
my @dir = grep { $_ !~ /^..?$/ && -f "$path_files/$_" } readdir(BASE);
closedir (BASE);
# Alle eingelesenen Dateien durchgehen
foreach my $file (@dir) {
# Und kopieren
copy("$path_files/$file", "$path_files_backup/$file");
}
<!--EDIT|renee|1150191408-->