有關IO的說明::選擇

Question

我正在使用IO::Select。

我沒有想到這個代碼只有當我手動殺死分叉進程時纔會終止。這是正確的行爲？

use strict; 
use warnings; 

STDOUT->autoflush(); 

use IO::Select; 

open(my $ph, "-|", "perl -e 'sleep 1 while 1'"); 

my $sel = IO::Select->new(); 

$sel->add($ph); 

$sel->can_read(2) or warn "timeout\n"; 

print "woohoo?\n"; 

Answer 1

從open，

關閉任何管道文件句柄導致父進程等待子結束，然後返回$?和${^CHILD_ERROR_NATIVE}狀態值。

因此關閉該文件句柄在$ph等待孩子完成時（$ph超出範圍，其完成）。

（這有什麼用IO做::選擇或select）