Perl: Verzeichnis rekursiv kopieren

Re: Perl: Verzeichnis rekursiv kopieren

komplexler — Tue, 22 Jan 2008 16:00:27 GMT

Wenn es nicht plattformunabhängig sein muss, könnte man es ja auch mit system() probieren. Allerdings muss man da dann natürlich stark darauf aufpassen, dass man sich da nicht selber ins Knie schießt mit der Sicherheit...

Re(5): Perl: Verzeichnis rekursiv kopieren

japh — Tue, 22 Jan 2008 13:08:06 GMT

da das nur ein kleines Testscript war [..] habe ich die Warnings und Strict nicht benutzt

beruehmte letzte worte von (viel zu) vielen perl hackern.

Re(4): Perl: Verzeichnis rekursiv kopieren

Norret — Tue, 22 Jan 2008 12:54:00 GMT

Hmm dann ist alles klar
Habe es aber jetzt eh ein wenig anders gelöst zum Glück...

Danke, da das nur ein kleines Testscript war (das Copy ist nur ein Teil eines größeren Skripts) habe ich die Warnings und Strict nicht benutzt.

Re(3): Perl: Verzeichnis rekursiv kopieren

japh — Tue, 22 Jan 2008 10:32:00 GMT

ber so ganz verstehe ich das nicht, @files ist ja in jeder "Instanz" nur lokal sichtbar.

nein, dein @files ist global ...

probier mal


my @files = grep ... ;

und in deinem programm ganz oben


use strict;
use warnings;

Re(3): Perl: Verzeichnis rekursiv kopieren

Norret — Tue, 22 Jan 2008 10:21:07 GMT

danke für den Tipp.

Re(2): Perl: Verzeichnis rekursiv kopieren

Norret — Tue, 22 Jan 2008 10:20:14 GMT

Hmm hört sich sehr gut an...
Würde erklären warum er den ersten Ordner abarbeitet und dann beim ersten Aufrufer nicht weiter macht.

Aber so ganz verstehe ich das nicht, @files ist ja in jeder "Instanz" nur lokal sichtbar. Bin das zumindest von Java gewohnt

Re(2): Perl: Verzeichnis rekursiv kopieren

Norret — Tue, 22 Jan 2008 10:18:38 GMT

Absolut.

Re: Perl: Verzeichnis rekursiv kopieren

mjy@geizhals.at — Tue, 22 Jan 2008 09:29:45 GMT

ohne jetzt genauer hinzuschauen ... du überschreibst dir wohl @files bei jedem rekursiven Aufruf.

Re: Perl: Verzeichnis rekursiv kopieren

Somnatic — Tue, 22 Jan 2008 08:38:01 GMT

Ist der Wert von $path relativ oder absolut?

Re(2): Perl: Verzeichnis rekursiv kopieren

mko — Tue, 22 Jan 2008 08:27:30 GMT

Setz es unter < code > tags...

Re(2): Perl: Verzeichnis rekursiv kopieren

nico — Tue, 22 Jan 2008 08:10:57 GMT

ja, weil html ohne nbsp keine leerzeichen umsetzen kann

Re: Perl: Verzeichnis rekursiv kopieren

Norret — Tue, 22 Jan 2008 08:05:40 GMT

Nein ich programmiere nicht so, aber die Einrückung wurde anscheinend vom Forum ignoriert

Perl: Verzeichnis rekursiv kopieren

Norret — Tue, 22 Jan 2008 08:04:00 GMT

Ich versuche nun schon seit gestern in Perl ein Verzeichnis rekursiv zu kopieren, das heißt alle Dateien die sich in dem angegebenen Ordner, oder Unterordner davon befinden, sollen kopiert werden.

Leider bricht mir das Programm nach der ersten Rekursion ab ohne Fehlermeldung oder sonst etwas...

sub copyfiles($){
my $path = shift;

print "Copyfiles from: $path\n";
opendir(DIR,$path);
chdir($path);
@files = grep {/^\w.*/}readdir(DIR);
closedir(DIR);
print "Content: @files\n";
while(defined($name = pop(@files))){
if(-f $name){
print "$name is a file, copy it to dest\n";
#copy
} elsif(-d $name) {
print "$name is a folder, go deeper\n";
copyfiles($name);
}
}
}

Wenn ich im elsif das copyfiles weglasse, dann werden mir brav alle Ordner aufgelistet bzw. Dateien die es in dem angegebenen Ordner gibt. Wenn ich das copyfiles allerdings drinnen lasse, dann wird zwar in dem ersten Ordner rekursiv abgestiegen, jedoch wird danach nicht mit den anderen Ordnern weitergemacht

Hoffe mir kann jemand helfen, wäre schon langsam dringend. Danke!

Perl: Verzeichnis rekursiv kopieren

Norret — Tue, 22 Jan 2008 08:04:00 GMT


sub copyfiles($){
	my $path = shift;
	
	print "Copyfiles from: $path\n"; 
	opendir(DIR,$path);
	chdir($path); 
	@files = grep {/^\w.*/}readdir(DIR);
	closedir(DIR);
	print "Content: @files\n";
	while(defined($name = pop(@files))){
		if(-f $name){
			print "$name is a file, copy it to dest\n";
			#copy
		} elsif(-d $name) {
			print "$name is a folder, go deeper\n";
			copyfiles($name);
		}
	}
}

Wenn ich im elsif das copyfiles weglasse, dann werden mir brav alle Ordner aufgelistet bzw. Dateien die es in dem angegebenen Ordner gibt. Wenn ich das copyfiles allerdings drinnen lasse, dann wird zwar in dem ersten Ordner rekursiv abgestiegen, jedoch wird danach nicht mit den anderen Ordnern weitergemacht

Hoffe mir kann jemand helfen, wäre schon langsam dringend. Danke!