うまい棒の断片

■ [perl][regex]FQDNからdomainの一部を取得する正規表現 01:11

こんなんでいいのかな。

my $fqdn = 'foo.bar.baz.co.jp';
my ($domain) = $fqdn =~ m{
    (                    
    #  ((?:[^\.]*).)?    ## 4th    level domain
      ((?:[^\.]*).)?     ## third  level domain
      (?:[^\.]*).        ## second level domain
      (?:[^\.]*)$        ## tld or gtld
    )                    
}xms;
# $domain => baz.co.jp

ってかCPANモジュールに何かありそう。