Coro模块中文文档

墨迹哥

回复 10# laputa73


   
    没事，谁解答都一样，只要能把问题解答出来就好。

    你看我重新叙述一遍，看看理解是否到位？

    首先先执行程序块外的print “完了”. 然后信号量由于设定锁定的值为0,而且不能为负数。
    所以$sem+1，然后执行$sem->down 再然后执行async里面的程序块,且$sem->up。

     那么到了这里，$sem的值就是1了，也就是直到程序的最后，$sem的信号就是1,对吗？
   

laputa73

你打出来看看啊,我怎么觉得是0啊.{:3_182:}
你把sem->down理解为一个sleep/cede/goto/中断,这里是一个被阻塞的请求,它被挂起了
在asys里面,sem->up,变成1
然后sem->down可以运行了,变成0
然后继续

1. use Coro;
   
2. my $sem=new Coro::Semaphore 0;
   
3. async{
   
4.   my $s=$sem->count;
   
5.    print "unlock $s.\n";
   
6.    $sem->up;
   
7.    $s=$sem->count;
   
8.    print "4. $s.\n";
   
9. };
   
10. my $s=$sem->count;
    
11. print "结束了.$s.\n";
    
12. $sem->down;
    
13. $s=$sem->count;
    
14. print "over,$s.\n";

复制代码

1. -bash-3.00$ /usr/bin/perl tcsem.pl
   
2. 结束了.0.
   
3. unlock 0.
   
4. 4. 1.
   
5. over,0.
   
6. -bash-3.00$

复制代码

laputa73

请问一下@py有没有用过python的gevent?
这个和coro+anyevent有无可比性?

"gevent封装了很多很方便的接口，其中一个就是monkey
from gevent import monkey
monkey.patch_all()
这样两行，就可以使用python以前的socket之类的，因为gevent已经给你自动转化了，真是超级方便阿。"

这个很诱人啊.
要是perl也支持这么一patch.原来的io,socket都变成event base了就方便了.

py

我一行python都没写过。我是一个不喜欢接受新事物的人，用熟了一个就尽量不换下一个，换来换去，学习成本太高

Coro有两个类似的模块，所有以前基于LWP写的模块，只要use Coro::LWP就可以非阻塞了。另外，还有Coro::Socket，这个模块是以非阻塞的方式模拟了IO::Socket::INET的API

laputa73

回复 14# py


    但是只是类似啊,
    而不是替换
   我是希望它能象Net::INET6Glue那样,use一下,就可以扩展原有使用Net::INET的模块.
   而不是用新的socket类重新去实现一遍原来的模块
   

墨迹哥

回复 12# laputa73


    这个真的很难理解啊...我到现在还是没摸清楚这个信号量的变化.

    可能思考模式有点问题,我还需要仔细做点研究.

    还有想请教"冗余"的问题,这个功能在PERL里面有什么模块实现吗?

laputa73

不知道你说的冗余是什么？

墨迹哥

回复 17# laputa73


    额..你和我一样都不懂啊....汗..我也没理解啥意思...

    很高深的玩意..

斯文牛氓

偶觉得coro的文档是最烂的 木有之一 吐槽下的德国佬的英文，其实最大的问题是经常讲一段好长的说明，看完不知道说了什么，是偶英语忒差了吗

py

回复 19# 斯文牛氓

呵呵，其实出了IT领域，科学性稍强一些的杂志都有些这种感觉。
Marc Lehmann的英语肯定不差，他的文档质量是格外高的，但我记得他文档里的确看到过单复数一类的错误，属于mistake。
他应该是很咬文嚼字的人，所以文档有时候会有复杂句，严谨而准确。这和日本人写的文档对比鲜明，膏药国人就会说些个简单句还总出现低级语法错误