Já fiz uma implementação assim "from scratch", e *não recomendo*, a menos que seja para fins educacionais. Diferentes plataformas usam técnicas diferentes para colocar sockets em modo non-blocking; e o método de polling também é bastante atrelado ao sistema operacional...<div>

O objetivo do AnyEvent é justamente fazer um wrapper genérico e independente de OS/distribuição/versão do Perl.</div><div>Veja como é um cliente de HTTP: <meta http-equiv="content-type" content="text/html; charset=utf-8"><a href="http://search.cpan.org/~mlehmann/AnyEvent-5.34/lib/AnyEvent/Intro.pod#Implementing_simple_HTTP_and_HTTPS_GET_requests_with_AnyEvent::Handle">http://search.cpan.org/~mlehmann/AnyEvent-5.34/lib/AnyEvent/Intro.pod#Implementing_simple_HTTP_and_HTTPS_GET_requests_with_AnyEvent::Handle</a></div>

<div><a href="http://search.cpan.org/~mlehmann/AnyEvent-5.34/lib/AnyEvent/Intro.pod#Implementing_simple_HTTP_and_HTTPS_GET_requests_with_AnyEvent::Handle"></a>E esse é um servidor HTTP: <meta http-equiv="content-type" content="text/html; charset=utf-8"><a href="https://gist.github.com/781246">https://gist.github.com/781246</a> (André, estava te devendo esse, malz!!!)<br clear="all">

<br>ABS()<br><br>
<br><br><div class="gmail_quote">2011/6/1 Rafael <span dir="ltr"><<a href="mailto:design.silveira@gmail.com">design.silveira@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">



  
    
    
  
  <div bgcolor="#ffffff" text="#000000">
    Cara, valeu!<br>
    <br>
    Baixei o Coro, e estou dando uma estuda.<br>
    Sobre closure, vou fazer tudo na "unha" mesmo, na vdd nao tem
    dificuldade nenhuma.<br>
    <br>
    É que vou criar minha propria lib de eventos.<br>
    Algo como:<br>
    <br>
    $server = new TCPServer({<br>
        ...<br>
    });<br>
    <br>
    $server->on('receive', sub {<br>
        ...<br>
    });<br>
    <br>
    $server->on('send', sub {<br>
        ...<br>
    });<br>
    <br>
    $server->on('accept', sub {<br>
        ...<br>
    });<br>
    <br>
    $server->listen();<br>
    <br>
    Em 31/05/2011 23:18, Stanislaw Pusep escreveu:
    <div><div></div><div class="h5"><blockquote type="cite">Uhm... AnyEvent? Esse tem muita coisa interessante
      rolando solta (<a href="http://search.cpan.org/search?q=AnyEvent" target="_blank">http://search.cpan.org/search?q=AnyEvent</a>).
      <div>Mais voltado para closures seria o IO::Lambda; mais voltado
        para threads seria o Coro. Eu, particularmente e pessoalmente,
        posiciono AE no meio.<br clear="all">
        <br>
        ABS()<br>
        <br>
        <br>
        <br>
        <div class="gmail_quote">2011/5/31 Rafael <span dir="ltr"><<a href="mailto:design.silveira@gmail.com" target="_blank">design.silveira@gmail.com</a>></span><br>
          <blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204, 204, 204);padding-left:1ex">
            Ola pessoas,<br>
            <br>
            Seguinte, como eu gosto de codar coisas! hasuhaus<br>
            E estou voltando a mexer com perl, fiz um testes no trabalho
            (escondido do chefe), usando threads e closures.<br>
            E estou pensando em criar um package chamado EDP
            (EventDriven Perl).<br>
            O que vocês me dizem?<br>
            E se já tiver algo pronto, onde eu acho?<br>
            <br>
            []'s<br>
            =begin disclaimer<br>
             Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
            SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
            L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
            =end disclaimer<br>
          </blockquote>
        </div>
        <br>
      </div>
      <pre><fieldset></fieldset>
=begin disclaimer
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a>
 L<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank"><http://mail.pm.org/mailman/listinfo/saopaulo-pm></a>
=end disclaimer
</pre>
    </blockquote>
    <br>
  </div></div></div>

<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br></div>