我正在尝试使用Haskell的mmap包进行实验,由于对Haskell很新,所以我正在尝试编写一个小程序将少量数据写入内存映射文件。
这段代码正确地创建了文件大小,但似乎没有将向量中的数据刷新到内存映射文件中;我使用hexdump进行了验证 - 它只是全部为0。
出了什么问题?
import Control.Monad
import Data.Vector.Storable
import Foreign.Marshal.Array
import System.Directory
import System.IO
import System.IO.MMap
createFile :: FilePath -> Integer -> IO ()
createFile path size = do
h <- openBinaryFile path WriteMode
hSetFileSize h size
n = 10
size = 10 * 8
path = "test.dat" :: FilePath
main :: IO ()
main = do
createFile "signal.ml" size
let v = generate n (\i -> i) :: Vector Int
putStrLn $ show v
(ptr, s, _, _) <- mmapFilePtr path ReadWrite Nothing
unsafeWith v (\srcPtr -> copyArray ptr srcPtr n)
munmapFilePtr ptr s
非常感谢。
System.IO.MMap
的手册指出,在更改后,“过一段时间它将被写入磁盘。不确定何时会发生这种情况”,这是一个很好的问题,是否可能强制执行它... - Yuuri