Opened by Thomas at 2009-10-16 14:20
User since
2009-09-13
7016 Artikel
BenutzerIn
2009-09-13
7016 Artikel
BenutzerIn
Das hier läuft bei mir einwandfrei:
Kann mir jetzt nur noch vorstellen, dass bei Dir durch das File::Find vielleicht der aktive Cursor/Skope (oder wie man das nennt) noch im letzten Verzeichnis steht. Kennt man ja bei Windows. Wenn z.B. der Cursor in der Dos-Box in einem best. Verzeichnis hängt, läßt sich das im parallel geöffneten Explorer auch nicht löschen.
Beispiel Dos-Box:
Wenn ich nun in einer zweiten parallelen Dos-Box versuche zu löschen, scheitert das:
Code (perl): (dl
)
1 2 3 4 5 6 7 8
my @delarray; push @delarray,"D:/aa a/_bbb/_ccc/S455_00015653"; push @delarray,"D:/aa a/_bbb/_ccc/S455_00015654"; foreach (@delarray) { print "deleting $_\n"; rmdir("$_") || die "remove dir: $!"; }
Kann mir jetzt nur noch vorstellen, dass bei Dir durch das File::Find vielleicht der aktive Cursor/Skope (oder wie man das nennt) noch im letzten Verzeichnis steht. Kennt man ja bei Windows. Wenn z.B. der Cursor in der Dos-Box in einem best. Verzeichnis hängt, läßt sich das im parallel geöffneten Explorer auch nicht löschen.
Beispiel Dos-Box:
QuoteD:\aa a\_bbb\_ccc>
Wenn ich nun in einer zweiten parallelen Dos-Box versuche zu löschen, scheitert das:
QuoteD:\aa a\_bbb>rmdir _ccc
Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.
10 print "Hallo"
20 goto 10
20 goto 10