在Perl中,如何安全地创建临时FIFO?

如何创建一个临时目录(la mkdtemp())以避免竞争条件,然后将FIFO放在其中?

例如:

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

假设所有进程结束都连接到您创建的FIFO,您就不能从文件系统中删除它们吗?打开的文件句柄将阻止删除FIFO,但不能附加新的句柄,并且一旦关闭现有的文件句柄,FIFO本身将消失。