langref.org - ruby, cpp, clojure, and fsharp - Files | Directories | Process each file in a directory recursively

View Problem

Files

Directories

Process each file in a directory recursively

ruby

def procdir(dirname)
Dir.foreach(dirname) do |dir|
dirpath = dirname + '/' + dir
if File.directory?(dirpath) then
if dir != '.' && dir != '..' then
puts "DIRECTORY: #{dirpath}" ; procdir(dirpath)
end
else
puts "FILE: #{dirpath}"
end
end
end

# ------

procdir('/tmp')

cpp C++/CLI .NET 2.0

void processFile(String^ filename) { Console::WriteLine("{0}", filename); }

void processDirectory(String^ dirname)
{
for each(String^ filename in IO::Directory::GetFiles(dirname)) processFile(filename);
for each(String^ subdirname in IO::Directory::GetDirectories(dirname)) processDirectory(subdirname);
}

int main()
{
processDirectory("c:\\");
}

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)

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