W Perl, w jaki sposób bezpiecznie utworzyć tymczasowy FIFO?

Question

Aby porównać diff przyległych rekordów z pliku, stworzyłem dwa FIFOs rozwidlone dzieci do dostarczenia ich końce pisać, a przechwycone wyjście

diff -ub $previous $current 

którym skalary zawierać FIFO Ścieżki aportem jak bash process substitution Prace.

To nie jest program, który musi być kuloodporny, ale gdyby tak było, w jaki sposób utworzyć tymczasowe FIFO, aby uniknąć race conditions i innych słabych punktów? Wyobraź sobie, że File::Temp ma kuzyna File::Temp::FIFO: jaka byłaby jego implementacja?

Answer 1

Zakładając, że wszystkie końce procesu są połączone z utworzonymi przez ciebie FIFO, czy nie możesz ich usunąć z systemu plików? Otwarte uchwyty plików zapobiegną usunięciu FIFO, ale nie można do niego dołączyć żadnych nowych uchwytów, a gdy istniejące uchwyty plików zostaną zamknięte, sama FIFO zniknie.

Answer 2

Co zrobić, aby utworzyć katalog tymczasowy (a la mkdtemp()), aby uniknąć warunków wyścigu, a następnie umieścić tam swoje FIFO?

Na przykład:

use File::Temp qw(tempdir); 
use File::Spec::Functions qw(catfile); 
use POSIX qw(mkfifo); 

my $dir = tempdir(CLEANUP=>1); 
my $fifo0 = catfile($dir, "fifo0"); 
mkfifo($fifo0, 0700) or die "mkfifo($fifo0) failed: $!"; 
my $fifo1 = catfile($dir, "fifo1"); 
mkfifo($fifo1, 0700) or die "mkfifo($fifo1) failed: $!"; 

print "FIFO #0: $fifo0\n"; 
print "FIFO #1: $fifo1\n";