Problem mit rekrusiven verzeichnis-durchlauf

Greg10

Also ich habe zunächst mal folgenden Code:

Perl

#!/usr/bin/perl


use Digest::MD5 qw(md5 md5_hex md5_base64);


$directory = '/home/gregor/.work/.web';
$projects[0] = 'k-progs_product_page';


foreach (@projects) {
	$project = $_;
	copy_rec($directory.'/k-core', $directory.'/'.$project);
}


sub copy_rec {
	my($src, $dest) = @_;
	opendir($dir, $src) or die "Could not open ".$src."\n";
	@contents = readdir($dir) or die "Could not read ".$src."\n";
	closedir($dir) or die "Could not close ".$src."\n";
	$i = 0;
	while($contents[$i] ne '') {
		$i++;
		$n = $i - 1;
		$n = $contents[$n];
		if ($n ne '..' && $n ne '.' && $n ne '.bzr') {
			print "| '".$n."'\n";
			if (-f $src.'/'.$n) {
				copy_file($src.'/'.$n, $dest.'/'.$n);
			} else { if (-d $src.'/'.$n) {
				if (!-d $dest.'/'.$n) {
					mkdir($dest.'/'.$n, 755);
				}
				print "> copy rec\n";
				copy_rec($src.'/'.$n, $dest.'/'.$n);
			} }
		}
	}
	print "-\n";
}


sub copy_file {
	my($src, $dest) = @_;
	my $src_text;
	my $dest_text;
	if (-s $src != 0) {
		open(SRC, $src) or die "Could not open ".$src."\n";
		while($part = <SRC>) {
			$src_text = $src_text.$part;
		}
		close(SRC) or die "Could not close ".$src."\n";
	} else {
		$src_text = '';
	}
	if (-s $dest != 0) {
		open(DEST, $dest) or die "Could not open ".$src."\n";
		while($part = <DEST>) {
			$dest_text = $dest_text.$part;
		}
		close(DEST) or die "Could not close ".$src."\n";
	} else {
		$dest_text = '';
	}
	$src_sum = md5_hex($src_text);
	$dest_sum = md5_hex($dest_text);
}

Alles anzeigen

Die Ausgabe sieht wie folgt aus:

Zitat von Bash

| 'private'
> copy rec
| '.htaccess'
| 'page_code'
> copy rec
| '1.php'
-
-
-

Alles anzeigen

Allerdings ist im Verzeichnis /home/gregor/.work/.web/k-core WESENTLICH mehr als nur der Ordner private/ auch in den unter Ordnern übrigens
es sieht also so aus als würde er die Schleife abbrechen nachdem er copy_rec() aufruft...
Woran könnte das liegen?
Und, was viel wichtiger ist, wie kann ich das Problem beheben?

Schonmal danke

MFG Greg10

jojo87

ok, is jetzt vielleicht ein bissel am Thema vorbei, aber was solls.
Warum machst du keine echte Rekursion? Das bietet sich für Ordnerdurchläufe doch an?

Greg10

Ist das denn keine echte Rekursion?
Wie soll die denn aussehen?

The User

Echte Rekursion heißt, dass die Funktion sich selbst aufruft. Du rufst die dann einfach für Unterverzeichnis erneut auf.
Das macht dann automatisch für dich die ganze Zwischenspeicherung und es ist sehr viel kürzer.

Greg10

das tu ich doch?
die funktion liest den content des ordners der übergeben wurde aus und überprüft dann für jede datei ob sie denn auch wirklich eine datei oder ein verzeichniss ist, falls sie denn eines ist ruft die funktion SICH SELBST auf und übergibt das unterverzeichnis

jojo87

Also ich seh hier nur nen Wust (ist jetzt nicht böse gemeint) aus Schleifen.
Rekursion heisst nicht, dass man auch Unterordner einbezieht, sondern dass eine Funktion sich immer wieder selbst aufruft, und ein Problem damit in kleinstmögliche Teilprobleme zerlegt.
Ein Beispiel(Javascript):

Code

/*Rekursion zur Berechnung der Fakultaet*/
function fakultaet(x) {
if(x == 0)
{
  return 1;
}
else
{
  return x*fakultaet(x-1);
}
}

Alles anzeigen

Die Fakultät einer natürlichen Zahl ist die Zahl multipliziert mit jedem seiner natürlichen Vorgänger. Somit ist Fakultät 4 (auch: 4!) gleich 4 * 3!. 3! ist wiederum gleich 3 * 2! etc.
Das Problem wird somit immer kleiner.

Ich hab keine Ahnung von Perl, und somit auch kein Plan, was du eigentlich machen willst.
Aber z.Bsp. ein rekursiver rm unter Linux löscht ja auch nicht ganze Ordner, sondern zerlegt das Problem in das Löschen vieler einzelner Dateien.

Klar soweit?
Vorteil ist, dass dein Code damit mit Sicherheit um einiges schlanker wird.
Aber Vorsicht: Rekursionen mit Bedacht einsetzen, da sie meist teurer sind.

Gruß,
Jojo

Greg10

Der Wust ist das Resultat meiner Versuche das Problem zu lösen...
Nur so bin ich auf das eigentliche Problem gekommen
Was ich machen will ist ein Verzeichniss rekursiv zu kopieren, und dazu zerlege ich das Problem des kopierens des gesamten Ordnerinhalts immer wieder in das kleinere Problem nur den Inhalt des einen Unterordners zu kopieren, also auf deine Definition trifft meine herangehendsweise durchaus zu.

Aber darum geht es hier ja eigentlich garnicht, mein eigentliches Problem ist ja, dass die ausführung der Schleife in der "Elternfunktion" beim aufruf der "Kindfunktion" abgebrochen wird.

(übrigens sind in dem code genau vier schleifen, zwei sind allerdings nur für das auslesen von datei-inhalt und die erste ist auch nur dafür da, dass das GANZE script für jedes einzelne Projekt ausgeführt wird )

Greg10

Es scheint als hätte ich mein Problem jetzt gelöst
Ich müsste nur einige variablen mit my definieren
Siehe hier:

Perl

#!/usr/bin/perl


use Digest::MD5 qw(md5 md5_hex md5_base64);


$directory = '/home/gregor/.work/.web';
$projects[0] = 'k-progs_product_page';


foreach (@projects) {
	$project = $_;
	copy_rec($directory.'/k-core', $directory.'/'.$project);
}


sub copy_rec {
	my($src, $dest) = @_;
	my $dir;
	my @dir = ();
	opendir($dir, $src) or die "Could not open ".$src."\n";
	@dir = readdir($dir) or die "Could not read ".$src."\n";
	closedir($dir) or die "Could not close ".$src."\n";
	my $i = 0;
	while($dir[$i] ne '') {
		$i++;
		$n = $i - 1;
		$n = $dir[$n];
		if ($n ne '..' && $n ne '.' && $n ne '.bzr') {
			if (-f $src.'/'.$n) {
				copy_file($src.'/'.$n, $dest.'/'.$n);
			} else { if (-d $src.'/'.$n) {
				if (!-d $dest.'/'.$n) {
					mkdir($dest.'/'.$n, 755);
				}
				copy_rec($src.'/'.$n, $dest.'/'.$n);
			} }
		}
	}
}


sub copy_file {
	my($src, $dest) = @_;
	my $src_text;
	my $dest_text;
	if (-s $src != 0) {
		open(SRC, $src) or die "Could not open ".$src."\n";
		while($part = <SRC>) {
			$src_text = $src_text.$part;
		}
		close(SRC) or die "Could not close ".$src."\n";
	} else {
		$src_text = '';
	}
	if (-s $dest != 0) {
		open(DEST, $dest) or die "Could not open ".$src."\n";
		while($part = <DEST>) {
			$dest_text = $dest_text.$part;
		}
		close(DEST) or die "Could not close ".$src."\n";
	} else {
		$dest_text = '';
	}
	$src_sum = md5_hex($src_text);
	$dest_sum = md5_hex($dest_text);
	if ($src_sum ne $dest_sum) {
		print $src."\n";
	}
}

Alles anzeigen

Tags