Re[2]: [Erlang] Рекурсивный обход директорий
От: Трурль  
Дата: 24.01.06 05:38
Оценка: 14 (1) :))
Здравствуйте, Трурль, Вы некрасиво нифига написали:

Вот так, пожалуй, покрасивше будет.

parse_dir(PathToDir) -> case filelib:is_dir(PathToDir) of false -> {error, not_a_dir}; true -> Dirs=get_dirs(PathToDir), {dir,Dirs, get_files(Dirs)}. end. get_dirs(Path) -> [Path|lists:append([get_dirs(X)|| X <- filelib:wildcard(Path++"/*"),filelib:is_dir(X)])]. get_files(Dirs) -> [{Y,filelib:file_size(Y)}|| Y <- lists:append([filelib:wildcard(X++"/*")||X <- Dirs])].

 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.