不是很理解AnyEvent中io

只是一个红薯

1. use AnyEvent;
   
2. $| = 1; print "enter your name> ";
   
3. my $name;
   
4. my $name_ready = AnyEvent->condvar;
   
5. my $wait_for_input = AnyEvent->io (
   
6.    fh   => \*STDIN,
   
7.    poll => "r",
   
8.    cb   => sub {
   
9.       $name = <STDIN>;
   
10.       $name_ready->send;
    
11.    }
    
12. );
    
13. say $_ for 0..10;
    
14. # do something else here
    
15. # now wait until the name is available:
    
16. $name_ready->recv;
    
17. undef $wait_for_input; # watcher no longer needed
    
18. print "your name is $name\n";什么时候执行呢？

复制代码

不是很理解send，recv，该写在什么位置呢？

grshrd49

顶起啊 同求

py

别顶了，花时间看看文档，看看send和recv分别是干什么的就知道该怎么用了
文档看一遍如果没明白就看第二遍，第三遍，以此类推，直到明白

rubyish

该写在什么位置呢？

grshrd49

回复 3# py


    谁让我们鸟文不好呢悲催啊！

dahe_1984

回复 1# 只是一个红薯

大仙，AnyEvent是什么里的？



   

yybmsrs

The producer calls send, the consumer calls recv.

只是一个红薯

模块啊回复 6# dahe_1984


   

只是一个红薯

1. use AnyEvent;
   
2. $|=1;
   
3. my $exit=AE::cv {print "gg\n"};
   
4. my $name_ready=AE::cv {
   
5.     my ($cv)=@_;
   
6.     print "\nHello, ".$cv->recv;
   
7.     $exit->send;
   
8. };
   
9. my $angel=AE::io \*STDIN,0,sub {
   
10.     my $x=<STDIN>;
    
11.     $name_ready->send($x);
    
12. };
    
13. 
    
14. my $daemon=AE::timer 5, 5, sub {
    
15.     print "\n\nHurry up!!\nEnter your name>";
    
16. };
    
17. print "Enter your name>";
    
18. $exit->recv;

复制代码

可以执行，看来是我windows的问题，linux上没问题回复 3# py


   

laputa73

回复 9# 只是一个红薯


    又见AE
    雅典娜之惊叹!