perl - 关于 IO::Select 的说明

Question

我正在使用 IO::Select .

我没想到此代码仅在我手动终止 fork 进程时才会终止。这是正确的行为吗？

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 ,

Closing any piped filehandle causes the parent process to wait for the child to finish, then returns the status value in $? and ${^CHILD_ERROR_NATIVE}.

所以关闭 $ph中的文件句柄(当 $ph 超出范围时完成)等待子进程完成。

(这与 IO::Select 或 select 无关。)