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  "complete\n";

我的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  "complete\n";

运行上述内容：

$ perl so-12640993.pl
catch SIGIO!
complete

Answer 2

基于

SIGIO的异步IO是边缘触发的，而不是水平触发的。

在任何文件句柄发送给你SIGIO之前，你必须首先“武装”它。要做到这一点，你需要执行任何操作 - 在这种情况下sysread() - 直到你得到undef / EAGAIN。此时，文件句柄现在将为SIGIO布防，并在下次准备就绪时发送信号。然后你可以阅读它，直到它产生EAGAIN，这将再次武装它。

如何在perl中使用O_ASYNC和fcntl？

2 个答案: