[问题求助] 正则匹配url第一个反斜杠内容

522235677

比如 https://agc.qq.com/show/chan

匹配出show结果

回家路上

(?!/).*/([^/]+)/.*
复制代码

第一个捕获组捕获到的就是

523066680

反斜杠不是 \ 吗

echo https://agc.qq.com/show/chan|perl -e "print [split(/\/+/,<>)]->[2]"
复制代码

还是不要用切割了，匹配大概是这样吧：

$s = 'https://agc.qq.com/show/chan';
$s =~ /\/{2}.*?\/([^\/]+)/;
print $1;
复制代码

yu2n

Option Explicit

Test

'************************************************************************
Sub Test()
'************************************************************************

    Dim str, strPattern
    str = "https://agc.qq.com/show/chan"
    strPattern = "http[s]{0,1}:\/\/[0-9A-z\.]+?\/([^\/]+)?[\/]{0,1}?.*"
    MsgBox GetRE_SM0(str, strPattern)

End Sub

'************************************************************************
'正則表達式：取得字符串的第一個子匹配項目
'************************************************************************
Function GetRE_SM0(ByVal str, ByVal strPattern)
    Dim oRE
    Set oRE = CreateObject("vbScript.regExp")
    oRE.Pattern = strPattern
    If oRE.Test(str) Then
        If oRE.Execute(str)(0).SubMatches.Count >= 1 Then
            GetRE_SM0 = oRE.Execute(str)(0).SubMatches(0)
        End If
    End If
    Set oRE = Nothing
End Function
复制代码

zhanglei1371

这个？

http.*?//[^/]+/([^/]+)/.*$
复制代码