使用Perl从UNC路径解析服务器名称

Question

我正在寻找Perl中的一种方法，当它采用以下任一格式时，从UNC路径获取服务器名称：

$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