perl anyevent

发布时间：2020-12-15 20:58:34 所属栏目：大数据来源：网络整理

导读：? ? 使用anyevent: ? #!/usr/bin/perl -w use AnyEvent; ? $| =1; print "Enter you namen"; my $cv = AnyEvent-condvar; my $name; my $wait_for_input=AnyEvent-io( fh= *STDIN, poll="r",serif">cb=sub { $name=STDIN; print $name; $cv-send; } ); ? ?

使用anyevent:

#!/usr/bin/perl -w

use AnyEvent;

$| =1; print "Enter you namen";

my $cv = AnyEvent->condvar;

my $name;

my $wait_for_input=AnyEvent->io(

fh=> *STDIN,

poll=>"r",serif">cb=>sub {

$name=<STDIN>;

print $name;

$cv->send;

}

);

print "do something firstn";

$cv->recv;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!