Lucas<div><br></div><div>Valeu pela dica! Mas eu realmente estou procurando alguns módulos para me ajudar a forçar os usuários dos sistemas aqui a serem mais 'civilizados' com os servidores, de preferência, que eu tenha realmente um módulo( ou tenha que fazer um ) para isso. Ainda bem que não vou precisar fazer, pois como sempre, Perl tem várias soluções diferentes para resolver os problemas, e essa lista continua excelente como sempre, nos meus momentos de dificuldade. </div>
<div><br></div><div>Vou procurar testar várias soluções e apresentar aqui depois, para vocês darem uns pitacos... </div><div><br></div><div><br></div><div>Obrigado a todos!</div><div><br></div><div><br></div><div><br></div>
<div>Cheers!</div><div><br></div><div><br></div><div>PS: Otávio, você chegou a usar a integração do POE com o Gearman ??? Achei bem interessante: <a href="http://search.cpan.org/~aar/POE-Component-Gearman-Client-0.03/lib/POE/Component/Gearman/Client.pm">http://search.cpan.org/~aar/POE-Component-Gearman-Client-0.03/lib/POE/Component/Gearman/Client.pm</a></div>
<meta http-equiv="content-type" content="text/html; charset=utf-8"><div><br></div><div><br></div><div><br><br><div class="gmail_quote">Em 13 de setembro de 2010 12:10, zechim, lucas <span dir="ltr"><<a href="mailto:lzechim@gmail.com">lzechim@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Otávio,<br>
<br>
Eu tenho essa consciência de que GOLF não é para produção.<br>
<br>
A ideia era demonstrar que existe outra saída para a monitoração do<br>
load average através do /proc/loadavg, e não do 'top'<br>
E ainda mais que se tem uma coisa que eu não manjo muita coisa é regexp :D<br>
E até por isso meu one liner poderia ser bem menor :)<br>
<br>
Lucas Zechim<br>
<br>
<br>
<br>
<br>
2010/9/13 Otávio Fernandes <<a href="mailto:otaviof@gmail.com">otaviof@gmail.com</a>>:<br>
<div><div></div><div class="h5">> 2010/9/13 zechim, lucas <<a href="mailto:lzechim@gmail.com">lzechim@gmail.com</a>>:<br>
>> André,<br>
>><br>
>> Não sei a tua necessidade, mas...<br>
>> <a href="http://search.cpan.org/~perlboy/Linux-loadavg-0.09/loadavg.pm" target="_blank">http://search.cpan.org/~perlboy/Linux-loadavg-0.09/loadavg.pm</a><br>
>><br>
>> Ou ainda...<br>
>><br>
>> perl -e '($avg1, $avg5, $avg15) = `cat /proc/loadavg` =~ m/^(.{4})<br>
>> (.{4}) (.{4}).*/; print "$avg1 - $avg5 - $avg15\n"'<br>
>><br>
>><br>
>> E ai o pessoal com mais experiência em GOLF pode de ajudar à ficar melhor ainda!<br>
>><br>
>><br>
>> Lucas Zechim<br>
><br>
> Lucas,<br>
><br>
> Para uma aplicação em produção, a última coisa que eu pensaria é escrever<br>
> código desta forma (Perl Golf). Melhor seria usar N * 10 linhas a mais de Perl<br>
> e escrever um código que seja legível, e de preferência coberto por testes.<br>
><br>
> Perl Golf é ótimo para treinar a sua lógica, usar os internal do Perl e se<br>
> divertir, mas só ;-).<br>
><br>
> um abraço,<br>
><br>
> --<br>
> Otávio Fernandes<br>
> otaviof at ( <a href="http://gmail.com" target="_blank">gmail.com</a>, <a href="http://cpan.org" target="_blank">cpan.org</a> )<br>
> <a href="http://github.com/otaviof" target="_blank">http://github.com/otaviof</a><br>
> _______________________________________________<br>
> SaoPaulo-pm mailing list<br>
> <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
><br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a></div></div></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>
(11)82907780<br>
</div>