Se é que entendi direito, isso ajudaria:<br><a href="http://perldoc.perl.org/functions/gethostbyaddr.html">http://perldoc.perl.org/functions/gethostbyaddr.html</a><br><br>Se é que falei merda, deixa pra lá...<br><br>[]'s<br>

<br><div class="gmail_quote">Em 23 de agosto de 2011 13:53, Luis Motta Campos <span dir="ltr"><<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Pessoal,<br>
<br>
Eu estou criando um script para me mostrar estatísticas em tempo-real de várias (possivelmente 30+) bases de dados ao mesmo tempo.<br>
<br>
Uma das features deste script é descobrir e mapear estruturas de replicação complexas (exemplo: C replica de B replica de A replica de Master). Para isso funcionar como eu gostaria, é preciso identificar unívocamente os hosts. Eu escolhi fazer isso com hostname (por agora). Isso me criou o problema de normalizar um hostname num sistema de produção.<br>


<br>
Eu tenho Perl 5.10.0, apenas. Não tenho módulos e não posso acrescentar módulos com facilidade. Eu gostaria de saber se vocês tem alguma solução elegante (baseada em DNS seria ótimo) para eu normalizar meus hostnames sem precisar de módulos que não são parte do Core do 5.10.0.<br>


<br>
Por favor não perca seu tempo me sugerindo uma expressão regular, eu já tenho uma. :) Preciso de uma solução elegante.<br>
<br>
Putamplexos.<br>
--<br>
Luis Motta Campos<br>
is a DBA, Foodie, and Photographer<br>
<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>
</blockquote></div><br>