F#数据:如何从网站获取所有导航链接？

open System
open System.Net
open System.Text.RegularExpressions

let getLinksFromWebsite (url: string) =
    let request = WebRequest.Create(url)
    use response = request.GetResponse()
    use stream = response.GetResponseStream()
    use reader = new System.IO.StreamReader(stream)
    let html = reader.ReadToEnd()

    let regex = new Regex("<a\\s+(?:[^>]*?\\s+)?href=\"([^\"]*)\"", RegexOptions.IgnoreCase)
    let matches = regex.Matches(html)

    let links = 
        matches
        |> Seq.cast<Match>
        |> Seq.map (fun m -> m.Groups.[1].Value)
        |> Seq.filter (fun link -> not (link.StartsWith("#") || link.StartsWith("mailto:")))
        |> Seq.map (fun link -> if link.StartsWith("/") then url + link else link)
        |> Seq.distinct

    links

let websiteUrl = "https://www.example.com"
let links = getLinksFromWebsite websiteUrl

links
|> Seq.iter (fun link -> printfn "%s" link)