perl - Perl を使用して UNC パスからサーバー名を解析する

Question

サーバー名が次のいずれかの形式のときに、UNC パスからサーバー名を取得する方法を Perl で探しています。

$unc = '//server.domain.com/share';

$unc = '\\\\server.domain.com\\share';

Answer 1

for my $unc ('//server.domain.com/share', '\\\\server.domain.com\\share') {
    my ($server) = $unc =~ m{([^/\\]+)};
    print $server, "\n";
}

出力

server.domain.com
server.domain.com