如何在perl中使用O_ASYNC和fcntl

Question

我想使用O_ASYNC选项，当管道可以读取时，SIGIO的处理程序将运行。

但以下代码不起作用。有人能帮我吗？

#!/bin/env perl
use Fcntl;
$SIG{IO}= sub {
print "catch SIGIO!n";
};
my $flags=0;
open(FH,"-|","sleep 4 ;echo aaa") or die "$!";
fcntl(FH,F_GETFL,$flags) or die "$!";
fcntl(FH,F_SETFL,$flags | O_NONBLOCK | O_ASYNC) or die "$!";
sleep(5);
print  "completen";

我的perl版本是5.16.1，操作系统是Redhat 5u4，内核是2.6.18，x86_64

Answer 1

在Linux下，您必须请求异步通知(O_ASYNC)并指定收件人(F_SETOWN)。因此，您只需要在示例中添加一行即可使其发挥作用：

#!/bin/env perl
use Fcntl;
$SIG{IO}= sub {
print "catch SIGIO!n";
};
my $flags=0;
open(FH,"-|","sleep 4 ;echo aaa") or die "$!";
fcntl(FH,F_GETFL,$flags) or die "$!";
fcntl(FH,F_SETFL,$flags | O_NONBLOCK | O_ASYNC) or die "$!";
fcntl(FH,F_SETOWN,0 + $$) or die "$!";  # <-- Note that we force $$ to be numeric
sleep(5);
print  "completen";

运行上面的：

$ perl so-12640993.pl
catch SIGIO!
complete

Answer 2

基于SIGIO的异步IO是边缘触发的，而不是级别触发的。

在任何文件句柄向您发送SIGIO之前，您必须首先"武装"它。要做到这一点，您需要执行任何操作(在本例中为sysread())，直到获得undef/EAGAIN。此时，文件句柄现在将为SIGIO准备就绪，并在下一次读取就绪时发送信号。然后，您可以读取它，直到它产生EAGAIN，这将再次武装它。