 Komplettes Verzeichnis kopieren
|
Seitenanfang |
| Hallo zusammen, wie kann ich ein komplettes Verzeichnis mit Perl kopieren? Mit File::copy kann ich nur einzelne Dateien kopieren. Liebe Gruesse, Jakob
Datum: 20.07.2005-12:51
|
re: Komplettes Verzeichnis kopieren
|
Seitenanfang |
| File::NCopy
Datum: 20.07.2005-22:24
|
re: Komplettes Verzeichnis kopieren
|
Seitenanfang |
| Hi Renee, meines Wissens ist "File::NCopy" kein Standardmodul, das müsste dann nachinstalliert werden. -uw
Datum: 20.07.2005-22:33
|
re: Komplettes Verzeichnis kopieren
|
Seitenanfang |
Hi,
use CGI::Carp qw(fatalsToBrowser);
use File::Copy;print "Content-type: text/html\n\n"; $pfad = "/dein/pfad";
$ziel = "/dein/zielpfad"; opendir(DIR,"$pfad");
my @files = grep {/^.*(\.htm$|^.*\.html$)/i} readdir DIR;
closedir(DIR); foreach (@files) {
copy("$pfad/$_","$ziel/$_");
chmod(0750, "$ziel/$_");
print "Kopiere Datei: $_";
}
Je nach Dateitypen die zu kopieren sind, must dann den regulären Ausdruck anpassen.-uw
Datum: 20.07.2005-22:30
|
re: Komplettes Verzeichnis kopieren
|
Seitenanfang |
| Hallo zusammen, danke fuer die Muehe. Eine Frage habe ich noch. Wie kann ich automatisch das Verzeichnis erstellen lassen, wenn es noch nicht existiert? Liebe Gruesse, Jakob
Datum: 21.07.2005-12:54
|
re: Komplettes Verzeichnis kopieren
|
Seitenanfang |
| Hi, http://de.selfhtml.org/perl/funktionen/dateiverwaltung.htm#mkdir -uw
Datum: 21.07.2005-17:23
|
