<br><div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Estou verificando um código de exemplo. Assim que tiver, eu posto.</blockquote><div>
<br>Isto é um bom começo:<br><br>&nbsp;use strict;<br>use warnings;<br><br>use POE qw(Wheel::FollowTail Component::Daemon);<br><br>my $FILENAME = &#39;input.txt&#39;;<br><br>POE::Component::Daemon-&gt;spawn( detach =&gt; 1, max_children =&gt; 3 );
<br><br>POE::Session-&gt;create(<br>&nbsp;&nbsp;&nbsp; inline_states =&gt; {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _start =&gt; sub {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my ( $kernel, $heap, $session ) = @_[ KERNEL, HEAP, SESSION ];<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $heap-&gt;{tail} = POE::Wheel::FollowTail-&gt;new(
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Filename&nbsp;&nbsp; =&gt; $FILENAME,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; InputEvent =&gt; &#39;got_line&#39;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; },<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; got_line =&gt; sub {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my ( $kernel, $input ) = $_[ KERNEL, ARG0 ];
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;got_line(): $input\n&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; },<br>&nbsp;&nbsp;&nbsp; }&nbsp;&nbsp; <br>);<br><br>POE::Kernel-&gt;run();<br><br>Agora só falta implementar a conexão ao banco de dados :)<br clear="all"></div></div><br>-- <br>
Igor Sutton Lopes &lt;<a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>&gt;