Haskell獲取目錄中的目錄

Question

如何獲取目錄中的目錄列表？

我想出下面，但我希望有一個更優雅的方式：

import System.Directory 
import qualified Filesystem.Path as FsP 
import Filesystem.Path.CurrentOS 
import Control.Monad 

getDirectories :: Prelude.FilePath -> IO [Prelude.FilePath] 
getDirectories x = do 
    listDirectory x 
    >>= (return . fmap decodeString) 
    >>= return . fmap (FsP.append (decodeString x)) 
    >>= (return . fmap encodeString) 
    >>= filterM doesDirectoryExist 

Answer 1

它看起來像您使用的是過時的包system-filepath，如何使用filepath包來替代：

import   Control.Monad (filterM) 
import   System.Directory (doesDirectoryExist, listDirectory) 
import   System.FilePath ((</>)) 

getDirectories :: FilePath -> IO [FilePath] 
getDirectories filePath = do 
    allFiles <- listDirectory filePath 
    filterM (doesDirectoryExist . (filePath </>)) allFiles 

，或者您更明確使用綁定操作：

import   Control.Monad (filterM) 
import   System.Directory (doesDirectoryExist, listDirectory) 
import   System.FilePath ((</>)) 

getDirectories :: FilePath -> IO [FilePath] 
getDirectories filePath = listDirectory filePath 
         >>= filterM (doesDirectoryExist . (filePath </>)) 

注意：您版本的函數將返回預置到列表中的每個輸出目錄中輸入文件路徑。雖然這可能是你想要的，但我給你的getDirectories版本可能更一般，因爲它的行爲與listDirectory完全相同，只是簡單地修剪文件/可執行文件。

編輯：改變了從進口到System.FilePath.Posix爲System.FilePath真正的平臺獨立性。感謝Justin Raymond的建議。

Answer 2

所有你需要的是System.Directory。

import Control.Monad (filterM) 
import System.Directory (doesDirectoryExist, getCurrentDirectory, getDirectoryContents) 

listDirs :: IO [FilePath] 
listDirs = getCurrentDirectory >>= getDirectoryContents >>= filterM doesDirectoryExist 

如果要傳遞文件路徑作爲參數，則不要使用getCurrentDirectory。

import Control.Monad (filterM) 
import System.Directory (doesDirectoryExist, getCurrentDirectory) 

listDirs :: FilePath -> IO [FilePath] 
listDirs path = getDirectoryContents path >>= filterM (doesDirectoryExist . (++) path)