Re[4]: [Erlang] Рекурсивный обход директорий в избранное  новое всё   подписка   модер.  /!\
От: gandalfgrey 
Дата: 26.01.06 12:25
Оценка:16 (1)
Здравствуйте, Arioch2, Вы писали:

А готовые библиотечные функции использовать что, уже некошерно ?

start()->
L1=filelib:fold_files(".","[a-zA-Z0-9_]*",true,fun(X,A)->[{X,filelib:file_size(X)}|A] end,[]),
[io:fwrite("~p~n",[X])||X<-L1],
ok.
выводит такое :

{"./server_root/logs/access_disk_log_8888.1",109709}
{"./server_root/logs/access_disk_log_8888.idx",18}
{"./server_root/logs/access_disk_log_8888.siz",13}
{"./server_root/logs/access_log_8888",109797}
{"./server_root/logs/error_disk_log_8888.1",101211}
{"./server_root/logs/error_disk_log_8888.idx",18}
{"./server_root/logs/error_disk_log_8888.siz",13}
{"./server_root/logs/error_log_8888",101227}
{"./server_root/ssl/ssl_client.pem",1266}
{"./server_root/ssl/ssl_server.pem",1266}

берет подкаталоги и т.д. и т.п.