4

我想知道我的程序将一个 12.9MB 的.wav文件读入内存需要多长时间。将文件读入内存的函数如下所示：

import qualified Data.ByteString        as BS

getSamplesFromFileAsBS :: FilePath -> IO (BS.ByteString)

它采用文件名并将样本作为ByteString. 它还对数据执行一些其他有效性检查并忽略标头信息。我ByteString使用 将样本读入内存ByteString.hGet。

如果我现在用一个 12.9MB 的文件对这个函数进行基准测试，使用Criterion：

bencher :: FilePath -> IO ()
bencher fp = defaultMain [
  bench "Reading all the samples from a file." $ nfIO (getSamplesFromFileAsBS fp)
  ]

我得到以下结果：

benchmarking Reading all the samples from a file.
time                 3.617 ms   (3.520 ms .. 3.730 ms)
                     0.989 R²   (0.981 R² .. 0.994 R²)
mean                 3.760 ms   (3.662 ms .. 3.875 ms)
std dev              354.0 μs   (259.9 μs .. 552.5 μs)
variance introduced by outliers: 62% (severely inflated)

它似乎在 3.617 毫秒内将 12.9MB 加载到内存中。这似乎不太现实，因为它表明我的 SSD 可以读取 3+GB/s，而事实并非如此。我究竟做错了什么？

我决定通过手动测量时间差来尝试另一种（更天真的）方式：

runBenchmarks :: FilePath -> IO ()
runBenchmarks fp = do
  start <- getCurrentTime
  samplesBS <- getSamplesFromFileAsBS fp
  end <- samplesBS `deepseq` getCurrentTime
  print (diffUTCTime end start)

这给了我以下结果：0.023105s。这是现实的，因为这意味着我的 SSD 可以以大约 600MB/s 的速度读取。结果有什么问题Criterion？

4

1 回答 1

0

我Criterion通过将输出写入html文件来查看基准测试的视觉结果。我可以清楚地看到第一次运行大约需要 0.020 秒，而其余的（缓存后）大约需要 0.003 秒。

因此，由于缓存，我得到了这些结果。

于 2017-04-23T13:07:11.440 回答