perl - 使用 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