Re: [Erlang] Рекурсивный обход директорий
От: Трурль  
Дата: 23.01.06 16:08
Оценка: 21 (1)
Здравствуйте, Mamut, Вы писали:

get_all(Path) -> {Dirs,Files}=lists:splitwith({filelib,is_dir},filelib:wildcard(filename:join(Path, "*"))), [Path|lists:map(fun(X)->{X, filelib:file_size(X)} end, Files)] ++ lists:append(lists:map(fun(X)-> get_all(X) end,Dirs)).


а потом

lists:splitwith(fun({_,_})->true ; (_)->false end, get_all(Path)).

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