为什么《Programming Perl》的“7.2.39 IPC::Open2”中的程序居然结束了?

Why does the program shown in "7.2.39 IPC::Open2" of Programming Perl actually ends?

我指的程序是本节显示的第二个程序here。它的一个小修改是:

#!/usr/bin/perl -w
use IPC::Open2;
use Symbol;

$WTR = gensym();  # get a reference to a typeglob
$RDR = gensym();  # and another one

$pid = open2($RDR, $WTR, 'bc');
print "$pid\n";

while (<STDIN>) {           # read commands from user
    print $WTR $_;          # write a command to bc(1)
    $line = <$RDR>;         # read the output of bc(1)
    print STDOUT "$line";   # send the output to the user
}

这个程序运行正常。假设它的名字是prop_7_2_39_2.pl,那么与它的典型交互是:

>./prop_7_2_39_2.pl
75955
2+2
4
quit

>

也就是说,在键入“quit”后,子进程 bc 失效,之后我需要输入换行符才能真正完成 perl 父进程。为什么 <STDIN> 被评估为 false?我知道 perl 评估 <STDIN> 的定义。有点相关的程序

#!/usr/bin/perl -w
while(<STDIN>){}

没有结束。

发送 quitbc 后,它终止,关闭了管道的读取端。您的下一个 print $WTR $_ 将失败并生成终止程序的 SIGPIPE 信号 - 除非您为其安装信号处理程序。

另一种解决方案是在向 bc 发送内容后检查其读取是否成功:

while (<STDIN>) {              # read commands from user
    print $WTR $_;             # write a command to bc(1)
    my $line = <$RDR>;         # read the output of bc(1)

    if($line) {
        print STDOUT "$line";  # send the output to the user
    } else {
        last;                  # break out of the while loop
    }
}
print "Controlled ending...\n";