linux – 如何在perl中使用O_ASYNC和fcntl？

我想使用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

解决方法

在Linux下,您必须同时请求异步通知(O_ASYNC)并指定收件人(F_SetoWN).因此,您只需在示例中添加一行即可使其工作：

#!/bin/env perl

use Fcntl;

$SIG{IO}= sub {
   print "catch SIGIO!\n";
};

my $flags=0;

open(FH,$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