F# 如果为 null，则返回空字符串

Question

我正在尝试通过开发一个小型“网络爬虫”来接触一些 F# 语言。我有一个这样声明的函数:

let results = HtmlDocument.Load("http://joemonster.org//")

let images = 
results.Descendants ["img"]
|> Seq.map (fun x -> 
    x.TryGetAttribute("src").Value.Value(),
    x.TryGetAttribute("alt").Value.Value()
)

这当然应该为我返回“img”标签的“src”和“alt”属性的映射。但是，当我遇到标签中缺少其中一个的情况时，我收到一个异常，TryGetAttribute 返回 null。我想更改该函数以返回属性值或空字符串(如果为 null)。我已经尝试过 this ticket 的答案但没有成功。

Answer 1

TryGetAttribute 返回一个 option 类型，当它为 None 时，您无法获取其值 -相反，你会得到一个异常(exception)。您可以针对返回的选项值进行模式匹配，并针对 None 情况返回空字符串:

let getAttrOrEmptyStr (elem: HtmlNode) attr =
  match elem.TryGetAttribute(attr) with
  | Some v -> v.Value()
  | None -> ""
let images = 
  results.Descendants ["img"]
  |> Seq.map (fun x -> getAttrOrEmptyStr x "src", getAttrOrEmptyStr x "alt")

或者使用defaultArg和Option.map的版本:

let getAttrOrEmptyStr (elem: HtmlNode) attr =
  defaultArg (elem.TryGetAttribute(attr) |> Option.map (fun a -> a.Value())) ""

或者现在存在 Option.defaultValue 的另一个选项，并使用 HtmlAttribute.value 函数进行简洁的 Option.map 调用:

let getAttrOrEmptyStr (elem: HtmlNode) attr =
  elem.TryGetAttribute(attr)
  |> Option.map HtmlAttribute.value
  |> Option.defaultValue ""