linux – 如何在perl中使用O_ASYNC和fcntl？
发布时间：2020-12-13 23:06:50 所属栏目：Linux 来源：网络整理
导读：我想使用O_ASYNC选项,当管道可以读取时, SIGIO的处理程序将运行. 但是以下代码不起作用.任何人都可以帮助我吗？ #!/bin/env perluse Fcntl; $SIG{IO}= sub { print "catch SIGIO!n";};my $flags=0;open(FH,"-|","sleep 4 ;echo aaa") or die "$!";fcntl(FH,
|
我想使用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 解决方法
在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 "completen";
运行以上： $perl so-12640993.pl catch SIGIO! complete （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |