Re: [Erlang] Рекурсивный обход директорий в избранное  новое всё   подписка   модер.  /!\
От: Трурль 
Дата: 23.01.06 15: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)).