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

[Renato Botelho]

On 5/22/07, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
> my ($domain) = (fqdn() =~ /^(?{short()})\.(.*)$/)

Não funciona, coloquei até um array pra ler o retorno mas ele fica vazio.

#!/usr/local/bin/perl

use strict;
use warnings;
use Sys::Hostname::FQDN qw/fqdn short/;
use Data::Dumper;

my (@domains) = (fqdn() =~ /^(?{short()})\.(.*)$/);
print Dumper \@domains;

------------------

garga em soc90:~/tmp> perl teste.pl
$VAR1 = [];

-- 
Renato Botelho