<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> use strict;<br>use warnings;<br><br>use POE qw(Wheel::FollowTail Component::Daemon);<br><br>my $FILENAME = 'input.txt';<br><br>POE::Component::Daemon->spawn( detach => 1, max_children => 3 );
<br><br>POE::Session->create(<br> inline_states => {<br> _start => sub {<br> my ( $kernel, $heap, $session ) = @_[ KERNEL, HEAP, SESSION ];<br> $heap->{tail} = POE::Wheel::FollowTail->new(
<br> Filename => $FILENAME,<br> InputEvent => 'got_line',<br> );<br> },<br> <br> got_line => sub {<br> my ( $kernel, $input ) = $_[ KERNEL, ARG0 ];
<br> print "got_line(): $input\n";<br> },<br> } <br>);<br><br>POE::Kernel->run();<br><br>Agora só falta implementar a conexão ao banco de dados :)<br clear="all"></div></div><br>-- <br>
Igor Sutton Lopes <<a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>>