my ($domain) = (fqdn() =~ /^(?{short()})\.(.*)$/)<br><br><div><span class="gmail_quote">Em 22/05/07, <b class="gmail_sendername">Renato Botelho</b> <<a href="mailto:rbgarga@gmail.com">rbgarga@gmail.com</a>> escreveu:
</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Pessoal,<br><br>Imaginem a situação seguinte. Usando a Sys::Hostname::FQDN, consigo<br>
obter o host completo com a fqdn() e o primeiro nome com a short().<br><br>Preciso do domínio, que é o fqdn() - short(). Claro que sabendo que o<br>separador é o ponto (.) fica fácil resolver isso, aqui eu fiz assim:<br><br>
my ($domain) = (fqdn() =~ /^[^\.]+\.(.*)$/);<br><br>Aceito sugestões, se alguém souber de uma maneira melhor.<br><br>O que eu fiquei curioso foi, existe alguma maneira de eu colocar uma<br>sub dentro da expressão, ao invés de usar [^\.]+, usar o retorno da
<br>short()?<br><br>Obrigado<br>--<br>Renato Botelho<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">
http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando