<blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">Pessoal,<br></blockquote><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">
<br></blockquote><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">Imaginem a situação seguinte. Usando a Sys::Hostname::FQDN, consigo<br></blockquote>
<blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">obter o host completo com a fqdn() e o primeiro nome com a short().<br></blockquote><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">
<br></blockquote><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">Preciso do domínio, que é o fqdn() - short(). Claro que sabendo que o<br></blockquote>
<blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">separador é o ponto (.) fica fácil resolver isso, aqui eu fiz assim:<br></blockquote><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">
<br></blockquote><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">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</blockquote><div><br>Use o modificador /e para executar rotinas e funçoes de dentro da regex.
<br><br>Iber<font size="-1">ê</font></div>