Opened by hcx at 2011-07-06 19:04
Hallo topeq,
bin ich blöd.
Ich war fast soweit
doch das &loesche($ordner); hat natürlich so nicht funktioniert.
Darauf hätte ich kommen können den kompletten Pfad anzugeben, doch dass es auch ohne das & geht, war mir neu.
Allerdings bekomme ich eine Warnung:
Hast Du noch einen Tipp wie ich die wegbekomme dann wäre es fast perfekt.
Danke nochmal
hcx
Last edited: 2011-07-08 19:43:15 +0200 (CEST)
bin ich blöd.
Ich war fast soweit
Code: (dl
)
1
2
3
4
5
6
elsif (-d "$ordner/$datei") {
# print "Befinde mich im Unterverzeichnis $ordner/$datei \n";
# print "Habe ein Unterverzeichnis $ordner/$datei gefunden rufe die Funktion rekursiv auf \n";
# unlink("$ordner/$datei") or warn "$!";
# print "Funktion rekursiv aufgerufen lösche alle Dateien im Unterverzeichnis $ordner/$datei \n";
# &loesche($ordner);doch das &loesche($ordner); hat natürlich so nicht funktioniert.
Darauf hätte ich kommen können den kompletten Pfad anzugeben, doch dass es auch ohne das & geht, war mir neu.
Allerdings bekomme ich eine Warnung:
Code: (dl
)
Deep recursion on subroutine "main::loesche
Hast Du noch einen Tipp wie ich die wegbekomme dann wäre es fast perfekt.
Danke nochmal
hcx
Code: (dl
)
if(-d $pfad) { ordner($pfad); } Last edited: 2011-07-08 19:43:15 +0200 (CEST)