En Perl, comment créer en toute sécurité un FIFO temporaire?

Question

Pour comparer avec diff enregistrements adjacents d'un fichier, j'ai créé deux FIFOs, les enfants en forme de fourche pour fournir leurs extrémités d'écriture et de capturer la sortie de

diff -ub $previous $current 

où les valeurs scalaires contiennent les de FIFOs chemins nature de la façon dont bash process substitution travaux.

Ce n'est pas un programme qui doit être à l'épreuve des balles, mais si c'était le cas, comment créer des FIFO temporaires afin d'éviter race conditions et d'autres vulnérabilités? Imaginez File::Temp a un cousin File::Temp::FIFO: quelle serait la mise en œuvre de ce dernier?

Answer 1

En supposant que toutes les extrémités du processus sont connectées aux FIFO que vous avez créées, ne pouvez-vous pas simplement les supprimer du système de fichiers? Les handles de fichiers ouverts empêcheront la FIFO d'être supprimée, mais aucun nouveau handle ne pourra y être attaché, et une fois que les handles de fichiers existants seront fermés, le FIFO lui-même disparaîtra.

Answer 2

Que diriez-vous de créer un répertoire temporaire (a la mkdtemp()) pour éviter les conditions de course, et y mettre vos FIFO?

Par exemple:

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