Trong Perl, làm cách nào để tạo một FIFO tạm thời một cách an toàn?

Question

Để so sánh với diff hồ sơ liền kề từ một tập tin, tôi đã tạo ra hai FIFOs, trẻ em chia hai để cung cấp ghi họ kết thúc, và bắt đầu ra của

diff -ub $previous $current 

nơi vô hướng chứa FIFOs đường dẫn hiện vật như thế nào bash process substitution công trinh.

Đây không phải là chương trình cần phải có bằng chứng chống đạn, nhưng nếu có, làm cách nào để tạo các FIFO tạm thời để tránh race conditions và các lỗ hổng khác? Hãy tưởng tượng File::Temp có một người anh em File::Temp::FIFO: điều gì sẽ là triển khai của người khác?

Answer 1

Giả sử tất cả các quá trình kết thúc được kết nối với FIFO bạn đã tạo, bạn có thể xóa chúng khỏi hệ thống tệp không? Các tập tin đã mở sẽ giữ FIFO khỏi bị xóa, nhưng không có tay cầm mới có thể được gắn vào nó, và một khi các tập tin hiện có được đóng lại, bản thân FIFO sẽ biến mất.

Answer 2

Làm thế nào để tạo một thư mục tạm thời (a la mkdtemp()) để tránh điều kiện chủng tộc, và sau đó đặt FIFO của bạn trong đó?

Ví dụ:

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