En Perl, ¿cómo creo de manera segura una FIFO temporal?

Question

Para comparar con diff registros adyacentes de un archivo, creé dos FIFOs, niños bifurcadas para abastecer a sus extremos de escritura, y capturó la salida de

diff -ub $previous $current 

donde los escalares contienen rutas especie de cómo bash process substitution los FIFO trabajos.

Este no es un programa que debe ser a prueba de balas, pero si lo fuera, ¿cómo crearía FIFO temporales para evitar race conditions y otras vulnerabilidades? Imagine File::Temp tiene un primo File::Temp::FIFO: ¿cuál sería la implementación de este último?

Answer 1

Suponiendo que todos los extremos del proceso están conectados a los FIFO que ha creado, ¿no puede simplemente eliminarlos del sistema de archivos? Los manejadores de archivos abiertos evitarán que se elimine el FIFO, pero no se podrán asociar nuevos identificadores, y una vez que se cierren los manejadores de archivos, el FIFO desaparecerá.

Answer 2

¿Qué tal crear un directorio temporal (a la mkdtemp()) para evitar condiciones de carrera, y luego poner sus FIFO allí?

Por ejemplo:

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";