为什么《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>){}
没有结束。
发送 quit
到 bc
后,它终止,关闭了管道的读取端。您的下一个 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";
我指的程序是本节显示的第二个程序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>){}
没有结束。
发送 quit
到 bc
后,它终止,关闭了管道的读取端。您的下一个 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";