Perl: Dateien löschen

[icy_wiener]

Hallo,

ich habe folgendes winziges Skript:

Code: Select all

#!/usr/bin/perl -w 
use File::Find;
$vz =".";
sub zeige{
	if ( (/content.html/) ){
		print ("$File::Find::dir n");
		system ("rm $File::Find::dir/../Datei1.txt");
		system ("rm $File::Find::dir/../Datei2.txt");
		system ("rm -R $File::Find::dir");
	}
	
}
#find (&zeige,$vz);
find ({ wanted => &zeige, follow => 1 },$vz);

Ich erhalte beim Ausführen immer die Fehlermeldung:
rm: cannot remove `./521/1/1249937/30/../Datei1.txt': No such file or
directory

rm scheint den Pfad nicht auflösen zu können. Wenn ich mir statt 'system' mit 'print' den Befehl ausgeben lasse und ihn manuell ausführe, funktioniert es.

Kann mir jemand auf die Sprünge helfen?

Viele Grüße

[icy_wiener]

da ich gerade die Lösung gefunden habe, antworte ich mal kurz selbst:

Das Problem ist, das sich die rekursive Funktion immer gerade in dem Verzeichnis befindet, das sie durchläuft.
Deshalb kann der Pfad nicht aufgelöst werden.

Zur Lösung sind zuerst alle Pfade zu sammeln und anschließend von 'außerhalb' zu löschen:

Code: Select all

#!/usr/bin/perl -w 
use File::Find;
$vz =".";
@dirs = ();
sub zeige{
	if ( (/content.html/) ){
		print ("$File::Find::dir n");
		push @dirs, $File::Find::dir;
	}
	
}
#find (&zeige,$vz);
find ({ wanted => &zeige, follow => 1 },$vz);

foreach $i (@dirs)
{
	print ($i);
	system ("rm $i/../Datei1.txt");
	system ("rm $i/../Datei2.txt");
	system ("rm -r $i");
}

[lucki2]

Du hast imho keine Shell, die expandieren könnte ... gib ihr eine chance.
zb so

Code: Select all

system "bash","-c","rm $File::Find::dir/../Datei1.txt";

Code: Select all

`rm $variable`;