在 Haskell 中创建临时目录

发布于 2024-09-04 06:34:03 字数 245 浏览 9 评论 0原文

在 Haskell 中安全创建临时目录的正确方法是什么？ System.IO 提供了创建临时文件的方法，但我找不到任何对目录执行相同操作的方法，无论是在目录中还是在 System.Directory 中code>、System.Posix.Directory 或 System.Posix.Temp。是否有一个我忽略的函数，或者我需要自己编写一个函数？（如果是这样，是否有任何需要避免的危险，就像创建临时文件一样？）

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

夜声 2024-09-11 06:34:03

为了专门与 Unix 系统一起工作，Unixutils 包包含这样一个函数：

withTemporaryDirectory :: FilePath -> (文件路径->IO a)-> IO a

如果您需要它同时在 Windows 和 Unix 系统上工作，您将需要使用临时包。它具有相同的功能，但类型签名略有不同：

withTemporaryDirectory :: FilePath ->字符串 -> (文件路径 -> IO a) -> IO a

回复收藏 0 原文

风吹短裙飘 2024-09-11 06:34:03

您可以查看 Cabal 源代码的 Distribution.Compat.TempFile 模块作为示例。它定义 createTempDirectory 如下（其中 c_getpid 和 mkPrivateDir 是特定于平台的）：

createTempDirectory :: FilePath -> String -> IO FilePath
createTempDirectory dir template = do
  pid <- c_getpid
  findTempName pid
  where
    findTempName x = do
      let dirpath = dir </> template ++ show x
      r <- try $ mkPrivateDir dirpath
      case r of
        Right _ -> return dirpath
        Left  e | isAlreadyExistsError e -> findTempName (x+1)
                | otherwise              -> ioError e

Cabal 定义此函数的事实表明没有标准方法来做到这一点。

You could look at the Distribution.Compat.TempFile module of the Cabal source for an example. It defines createTempDirectory as follows (where c_getpid and mkPrivateDir are platform-specific):

createTempDirectory :: FilePath -> String -> IO FilePath
createTempDirectory dir template = do
  pid <- c_getpid
  findTempName pid
  where
    findTempName x = do
      let dirpath = dir </> template ++ show x
      r <- try $ mkPrivateDir dirpath
      case r of
        Right _ -> return dirpath
        Left  e | isAlreadyExistsError e -> findTempName (x+1)
                | otherwise              -> ioError e

The fact that Cabal defines this function suggests that there's not a standard way to do it.

回复收藏 0 原文