langref.org - python, clojure, fsharp, erlang ... - Files | Directories | Process each file in a directory recursively

View Problem

Files

Directories

Process each file in a directory recursively

python 2.4

import os
results = (process(os.path.join(p, n)) for p,d,l in os.walk(".") for n in l)

clojure

; (defn process-file [f] "process one file" body...)
(map process-file (file-seq (File. ".")))

fsharp

let processDirectory dirname proc =
let rec processDirectory' dirname' =
Directory.GetFiles(dirname') |> Array.iter proc
Directory.GetDirectories(dirname') |> Array.iter processDirectory'
processDirectory' dirname

// ------

let dirname = "c:\\"

processDirectory dirname (fun filename -> printfn "%s" filename)

erlang

filelib:fold_files(Directory, ".*", true, fun (FileOrDirPath, Acc) -> Worker(FileOrDirPath), Acc end, []).

erlang

process_dir(Directory, Worker).

java

processDirectory(new File("c:\\"));

Submit a new solution for python, clojure, fsharp, erlang ...
There are 10 other solutions in additional languages (cpp, fantom, groovy, haskell ...)