F#匹配许多正则表达式

Question

我知道一个字符串将匹配三个正则表达式中的一个(并且只有一个).我想依次尝试每个正则表达式,直到找到匹配项.对于两个正则表达式,知道存在匹配就足够了.第三个正则表达式有一个捕获组并返回一个整数.我有正则表达式的活动模式:

let (|Regex|_|) pattern input =
    let m = Regex.Match(input, pattern)
    if m.Success then Some(List.tail [ for g in m.Groups -> g.Value ])
    else None

我是F#的新手,并且正在努力寻找一种惯用的方法.我真的不想做一个令人费解的if-then-else表达,任何帮助都会非常感激.

谢谢

Answer 1

使用您的便捷功能,您需要做的就是使用match3种模式:

let regex1 = "^[1234]+$"
let regex2 = "^[abcd]+$"
let regex3 = "^ab([123])$"

let testText v =
    match v with
    | Regex regex1   _   ->         "matched 1!"
    | Regex regex2   _   ->         "matched 2!" 
    | Regex regex3 [ v ] -> sprintf "matched 3 = %d" (int v)
    | _                  ->         "no match"

testText "231" |> print  // matched 1!
testText "abd" |> print  // matched 2!
testText "ab2" |> print  // matched 3 = 2
testText "ab5" |> print  // no match