小编dan*_*nix的帖子

我正在努力做标题所说的,我有这个:

sub getDomain {

    my $scalarRef = shift;
    my @from_domain = split(/\@/,$$scalarRef);

    if($from_domain[1] =~ m/^.*?(\w+\.\w+)$/){
       print "$from_domain[1] $1" if($username eq 'xxx');
       return $1;
    }
}

返回domain.com的user@domain.com工作正常,但当然domain.co.uk将返回.co.uk,我需要domain.co.uk.关于如何继续这个的任何建议,我猜一个模块和一些建议某种tld查找表.