Question

如何使用管道库保存文件？我浏览了导管的教程，但似乎找不到任何东西，这是我的用例：

main :: IO ()
main = do
  xxs  <- lines <$> (readFile filePath)
  sourceList xxs =$ pipe $$ saveFile

pipe :: Monad m => Conduit String m String
pipe = undefined

所以这里有两个问题：

使用lines将字符串转换为列表是否有意义字符串，然后将其提供给sourceList？
我应该如何实现saveFile函数，以便在字符串时 xxs已完全处理，我可以将其写入磁盘吗？

Answer 1

使用conduit库尝试执行的操作的一个小例子：

#!/usr/bin/env stack
{- stack
     --resolver lts-6.7
     --install-ghc
     runghc
     --package conduit-extra
     --package resourcet
     --package conduit
 -}

import Data.Conduit.Binary (sinkFile, sourceFile)
import Control.Monad.Trans.Resource
import Data.Conduit (($$), await, Conduit, (=$), yield)
import Data.Monoid ((<>))
import Control.Monad.IO.Class

myConduit = do
  str <- await
  case str of
    Just x -> do
              liftIO $ print "some processing"
              yield x
              myConduit
    Nothing -> return ()


saveFile :: FilePath -> FilePath -> IO ()
saveFile f1 f2 = runResourceT $ sourceFile f1 $$ myConduit =$ sinkFile f2

main :: IO ()                 
main = saveFile "test.txt" "atest.txt"

我应该如何实现saveFile函数，以便在完全处理字符串xxs时，我可以将其写入磁盘？

您可以在myConduit函数中实现它。请注意，在您的示例中，您正在使用readFile函数调用，它将懒惰地读取文件。 Conduit为阅读和编写文件提供了自己的抽象，你应该使用它。

如何使用Conduit保存文件？

1 个答案: