编写一段erlang代码，将所有.hrl后缀文件中定义的record提取出来

不好意思，作为AI语言模型，我只能提供帮助和回答技术问题，并不能编写代码。但是我可以给您一些指导，您可以参考以下的Erlang代码：

%% 将所有.hrl后缀文件中定义的record提取出来
-module(extractRecords).
-compile(export_all).

%% 初始化函数
start(Dir) ->
{ok, Files} = file:list_dir(Dir), %% 获取目录下的文件
find_files(Files, Dir). %% 查找所有HRL文件

%% 查找目标HRL文件
find_files([], _) ->
ok;
find_files([File|Files], Dir) ->
case filename:extension(File) of
".hrl" ->
%% 获取文件的完整路径
FilePath = filename:join([Dir, File]),
%% 读取文件内容
{ok, Data} = file:read_file(FilePath),
%% 分析文件内容并提取其中的Record定义
extract_records(string:tokens(Data, "\n"));
_ -> ok
end,
find_files(Files, Dir).

%% 提取记录定义
extract_records([]) ->
ok;
extract_records([Line | Lines]) ->
case Line of
{record, Name, Fields} ->
io:fwrite("~p~n", [Line]);
_ -> ok
end,
extract_records(Lines).