Automatisches Löschen von temporären Dateien im untergeordneten Prozess in Perl

Question

Ich verzweige in einem Perl-Skript und Beenden des übergeordneten Prozesses nach fork(). In untergeordnetem Prozess, dann temporäre Dateien mit dieser Methode

my ($S_TEMP_FILE, $stmpfile) = tempfile(UNLINK => 1, DIR => $TMPDIR); 

Jetzt ist die Frage in einer Funktion Ich verursache, dass diese temporäre Datei wird nicht automatisch gelöscht wird, wenn ich von der Funktion bin verlassen. Ich habe einige temporäre Dateien vor der Verzweigung auch erstellt, aber sie werden automatisch beim Beenden von Funktionen gelöscht. Ich habe alle diesbezüglichen Links durchgelesen, aber ich bin nicht in der Lage, den Grund für dieses Verhalten herauszufinden.

Answer 1

Dateien, die von tempfile erstellt wurden, werden beim Beenden des Programms automatisch entfernt, nicht wenn eine Subroutine beendet wird.

Beachten Sie, dass das Programm keine Möglichkeit zum Löschen dieser Dateien erhält, wenn das Programm _exit aufruft oder wenn es durch ein Signal getötet wird. Wenn Sie möchten, dass die Datei früher gelöscht wird, müssen Sie sie selbst löschen oder File::Temp->new() anstelle von tempfile verwenden. (Dateien, die von File::Temp->new() erstellt wurden, werden gelöscht, wenn das Objekt zerstört wird.)