如何列出当前目录中的所有文件

Question

我想要的是写一个Haskell函数来返回当前目录的文件,例如

将当前目录更改为

 :cd c:/code/haskell

然后编写一个函数,返回一组中的文件,例如

 [x | x <-getDirectoryContents ]

编辑:

我写了一个像这样列出文件的函数(参考:http://zvon.org/other/haskell/Outputdirectory/index.html)

import Directory 

main = _dir "/tmp/FOO"

_dir _path =do
    setCurrentDirectory _path
    _cd <- getCurrentDirectory
    print _cd
    _file <- getDirectoryContents _cd
    print _file

因此调用_dir"c:/ code/haskell"将列出所有文件+目录名称(非递归).我现在想要的是在谓词函数中调用它,例如:

[ x| x <- _dir  "c:/code/haskell" | x start with 'haskell_' ]  

所以我可以在文件名上应用过滤器

Answer 1

看来你在寻找:

getDirectoryContents :: FilePath -> IO [FilePath]

参考:http://www.haskell.org/ghc/docs/6.12.2/html/libraries/directory-1.0.1.1/System-Directory.html#1

Answer 2

以下内容如何:

import Data.List
import System.Directory

main = do all <- getDirectoryContents "/tmp/FOO"
          let filtered = filter (isPrefixOf "haskell") all
          print filtered

Answer 3

编写一个返回当前目录中所有文件的函数所需要做的就是:

import System.Directory

filesInCurDir = getCurrentDirectory >>= getDirectoryContents

>> =运算符是值传递的monad排序运算符.这里最好描述http://www.haskell.org/tutorial/monads.html.

如果你打算在ghci中使用它:

let filesInCurDir = getCurrentDirectory >>= getDirectoryContents

你可以检查函数的类型,filesInCurDir :: IO [FilePath]从而保持"monadic nature".

因此,如果您想进一步过滤文件,您可以这样做:

let filteredFilesInCurDir = 
    getCurrentDirectory >>= 
    getDirectoryContents >>= 
    \files -> return [ x | x <- files, (length x) > 10 ]

如果你想每次都通过过滤器:

let filterFilesInCurDir f = 
    getCurrentDirectory >>= 
    getDirectoryContents >>= 
    \files -> return [ x | x <- files, f x ]

这与:

let filteredFilesInCurDir f = 
    getCurrentDirectory >>= 
    getDirectoryContents >>= 
    return . filter f

你可以像以下一样使用它:

filterFilesInCurDir (\x -> (length x) > 2)

Answer 4

第一点:表达式[x | x <- lst]与表达式完全相同lst,因此如果lst是列表,则不需要使用列表推导.

第二:为了 [x | x <-getDirectoryContents ]工作,价值getDirectoryContents应该是一个清单.但事实并非如此!getDirectoryContents是一个IO值.

您可以通过以下方式使用此函数(在monadic表达式中):

do 
  files <- getDirectoryContents "."
  print files

(或-内ghci中-使用:do; files <- getDirectoryContents "."; print files)

(files有类型 [FilePath]和while表达式有类型IO ())

Answer 5

filemanip包为这个特定的任务提供了更通用和灵活的功能。

即列出给定目录中的常规文件

> :m + System.FilePath.Find
> :t find always (fileType ==? RegularFile)
find always (fileType ==? RegularFile) :: FilePath -> IO [FilePath]

这个包是 Windows 兼容的（因为它依赖于unix-compat而不只是unix），并且还具有简洁的自我描述性 haddocs。