langref.org - clojure, cpp, csharp, erlang ... - Files | Directories

View Problem

Files

Directories

Process each file in a directory

clojure

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

cpp C++/CLI .NET 2.0

for each(String^ filename in IO::Directory::GetFiles(dirname)) process(filename);

csharp

foreach (string filename in System.IO.Directory.GetFiles(directory)) ProcessFile(filename);

erlang

% File basenames only - many tasks require absolute paths to work
lists:foreach(fun (FileOrDirPath) -> Worker(FileOrDirPath) end, file:list_dir(Directory)).

erlang

% Absolute paths provided - will accomodate most tasks
lists:foreach(fun (FileOrDirPath) -> Worker(FileOrDirPath) end, list_dir_path(Directory)).

fantom

File(`./`).list.each { process(it) }

fsharp

let dirname = "c:\\"

let processFile filename = printfn "%s" filename
for filename in Directory.GetFiles(dirname) do processFile filename done

fsharp

let dirname = "c:\\"

Directory.GetFiles(dirname) |> Array.iter (fun filename -> printfn "%s" filename)

groovy

dir.eachFile{ f -> process(f) }

java

for (File file : (new File("c:\\")).listFiles()) process(file);

ocaml

let process dir file =
if not (Sys.is_directory (Filename.concat dir file))
then print_endline file

let () =
let dir = "." in
let files = Sys.readdir dir in
Array.iter (process dir) files

perl

use File::Glob;

for (<*>) {
process_file($_) if (-f);
}

php

if ($dh = opendir($dir)) { // if we have access
while (($file = readdir($dh)) !== false) { // as long as there is a file
echo "name: $file\n"; // echo its name
}
closedir($dh); // close the dir
}

python 2.4

import os
results = (process(f) for f in os.listdir(".") if os.path.isfile(f))

ruby

directory = '/tmp' ; Dir.foreach(directory) {|file| puts "#{file}"}

scala

for (file <- new File("c:\\").listFiles) { processFile(file) }

Submit a new solution for clojure, cpp, csharp, erlang ...
There is 1 other solution in haskell