Igor, não me leve a mal, mais isso não seria matar uma mosca com um caminhão? <br>Eu acho o POE muito legal, mais ele é um mini-so, acho que para uma coisa tão simples não compensa usar ele, ou será que entendi errado?<br>
<br><div><span class="gmail_quote">On 1/2/07, <b class="gmail_sendername">Igor Sutton</b> &lt;<a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>&gt; wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><div><span class="q"><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>
</span><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><div><span class="e" id="q_10fe42320e3bf47c_3">
<br>-- <br>
Igor Sutton Lopes &lt;<a href="mailto:igor.sutton@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">igor.sutton@gmail.com</a>&gt;

</span></div><br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br><br></blockquote></div><br><br clear="all"><br>-- <br>Lorn <br>- Slackware Linux<br><a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a><br>- <a href="http://lornlab.org">
http://lornlab.org</a>