Perl的 - 通過一個開放的插座通過fork/EXEC

Question

我想有一個Perl守護聽並接受來自客戶端的傳入連接，然後叉 & EXEC另一個Perl程序繼續進行與客戶的對話。

我可以做到這一點很好，當只是分叉 - 守護程序代碼也包含孩子的代碼。但我沒有看到開放套接字如何通過exec（）傳遞給另一個Perl程序。

不知何故，我覺得這在Unix（這是我的環境）中很容易，因此也是在Perl中。它可以做到嗎？

Answer 1

這可以完成大約三個步驟：

1. 清除近距離上的exec文件描述符標誌。
2. 告訴exec'd程序使用哪個文件描述符。
3. 將文件描述符還原爲句柄。

1. Perl（默認情況下）在打開的文件描述符上設置close-on-exec標誌。這意味着文件描述符將不會保留在exec之間。你必須先清除此標誌：

use Fcntl; 

my $flags = fcntl $fh, F_GETFD, 0 or die "fcntl F_GETFD: $!"; 
fcntl $fh, F_SETFD, $flags & ~FD_CLOEXEC or die "fcntl F_SETFD: $!"; 

2.現在，文件描述符將跨越exec保持打開，你需要告訴程序，描述它：

my $fd = fileno $fh; 
exec 'that_program', $fd; # pass it on the command line 
# (you could also pass it via %ENV or whatever) 

3 。恢復對對方的文件句柄：

my $fd = $ARGV[0]; # or however you passed it 
open my $fh, '+<&=', $fd; # fdopen 
$fh->autoflush(1); # because "normal" sockets have that enabled by default 

現在你有一個每再次在$fh的l級句柄。

附錄：作爲池上在評論中提到，你也可以確保插座使用三個「標準」文件中描述的一個（0（標準輸入），1（標準輸出），2（錯誤））其中1.默認情況下跨exec執行，2.有已知數字，因此不需要傳遞任何東西，3. 3. perl會自動爲它們創建相應的句柄。

open STDIN, '+<&', $fh; # now STDIN refers to the socket 
exec 'that_program'; 

現在that_program可以簡單地使用STDIN。這甚至可以用於輸出。對文件描述符0,1,2沒有固有的限制，它們僅用於輸入或輸出。這只是所有unix程序遵循的慣例。