[SP-pm] Retorno de uma sub dentro da RE

[Iberê O. Kuntz de Souza]

>
> Pessoal,
>

> Imaginem a situação seguinte. Usando a Sys::Hostname::FQDN, consigo
>
obter o host completo com a fqdn() e o primeiro nome com a short().
>

> Preciso do domínio, que é o fqdn() - short(). Claro que sabendo que o
>
separador é o ponto (.) fica fácil resolver isso, aqui eu fiz assim:
>

> my ($domain) = (fqdn() =~ /^[^\.]+\.(.*)$/);
>
> Aceito sugestões, se alguém souber de uma maneira melhor.
>
> O que eu fiquei curioso foi, existe alguma maneira de eu colocar uma
> sub dentro da expressão, ao invés de usar [^\.]+, usar o retorno da
> short()?
>
> Obrigado


Use o modificador /e para executar rotinas e funçoes de dentro da regex.

Iberê
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20070523/bbaf83a7/attachment.html