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}

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