FsProfiler 0.3.2

FsProfiler

让您跟踪可定义代码片段的执行时间。

示例

处置分析器

DisposingProfiler 跟踪实例化和销毁之间花费的时间。它非常容易集成，不需要手动“停止”。

open System.Net
open System.Xml.Linq

let linkCountOnPage (url : string) =
    use dp = new DisposingProfiler "Analyzing site"
    use client = new WebClient()
    let html = 
        use __ = dp.StartSubtask "Downloading"
        client.DownloadString url
    let result =
        use __ = dp.StartSubtask "Parsing HTML"
        let doc = XDocument.Parse html
        let rec getATag (elements : XElement seq) =
            elements
            |> Seq.filter (fun c -> c.Name.LocalName = "a")
            |> Seq.append (
                elements 
                |> Seq.filter (fun c -> c.Name.LocalName <> "a") 
                |> Seq.collect (fun c -> c.Descendants () |> getATag))
        doc.Root.Descendants () |> getATag |> Seq.length
    result 

设置事件监听器。

open FsProfiler.Listeners

use tObs = new ObservableTaskListener ()

此监听器实现了 IObservable。您可以通过订阅此监听器来轻松观察已完成任务。最简单的方法是使用任务格式化程序之一。

open FsProfiler.Output

let asd = tObs.Subscribe (TaskPrinter.print)

执行代码

linkCountOnPage "https://github.com/ChrSteinert/FsProfier"

由于我们使用仅输出到控制台打印机的完成事件进行订阅，因此得到以下输出

Analyzing site
    Downloading
    --- 230ms
    Parsing HTML
    --- 460ms
--- 690ms