Hallöle,
könntet ihr mir bitte helfen ?
Ich bin noch ein Perlanfänger und brauche hilfe. Hab das Bsp gefunden und weiss leider nicht wie ich das vervollständigen soll.
1. Wenn Unterordner existieren, ja es existieren unterordner...
2. Hier würde dann dein Porgrammcode zum Kopieren stehen Wie
3. Natürlich auch die Kontrolle, ob die Datei schon existiert Wie soll der check funktionieren. ??
Könntet ihr mal das so vervollständigen das ich es mal Probieren kann bzw. dann bisschen rumspielen und ändern kann. Dann müsste ich es schaffen. Sonst frage ich euch . Danke euch im vorraus
#! /usr/bin/perl -w
# Variablen für die Verzeichnisse
$quelle = "verzeichnis";
$ziel = "verz2";
Verzeichnis_lesen($quelle);
Verzeichnis_bearbeiten();
# Wenn es einen Unterordner gibt geht es hier weiter
if (@unterordner) {
# Hier geht das Spiel wieder von Vorne los
}
# Einlesen der Einträge aus dem Quellverzeichnis
sub Verzeichnis_lesen {
my $quelle = $_[0];
opendir (ORDNER, $quelle) || die ("Konnte Verzeichnis \"$quelle\" nicht lesen: $!");
@ordner = readdir ORDNER;
closedir ORDNER;
}
# Jeder Eintrag im Ordner wird einzelnen bearbeitet.
# Dabei wird getestet, ob es sich um ein Verzeichnis oder eine Datei handelt
# Dateien werden kopiert
# Verzeichnisse werden in den Array @unterordner abgelegt und dabei schon als kompletter Pfad angelegt.
sub Verzeichnis_bearbeiten {
foreach (@ordner) {
$pfad = "$quelle\/$_";
unless (-d $pfad) {
# Hier würde dann dein Porgrammcode zum Kopieren stehen
# Natürlich auch die Kontrolle, ob die Datei schon existiert
print "- $_\n";
} else {
my $pfad = "$quelle\/$_";
push @unterordner, $pfad;
}
}
}
Datum: 17.10.2005-14:41
Verzeichnis Kopieren bzw. skript ergänzen "Perlanfänger"
