Erlang调用list:keyfind()触发badrecord错误求助（新手）

你遇到的{badrecord,shipping_state}错误，核心原因大概率是record定义没有被正确加载，或者传入get_ship的Shipping_State参数并非合法的#shipping_state实例。我们一步步来排查和修复：

1. 修正HRL文件的引入方式 #

你在shipping.erl中用了：

-include_lib("./shipping.hrl").

include_lib是用来引入OTP库中的头文件的，对于本地项目的头文件，应该用include指令：

-include("./shipping.hrl").

这一步确保Erlang编译器能正确找到并加载shipping.hrl中的record定义，避免因为找不到record结构而抛出badrecord错误。

2. 确保init/0函数返回合法的#shipping_state实例 #

你调用shipping:init()作为get_ship的第一个参数，但没给出init/0的实现。如果这个函数没有返回正确的#shipping_state结构，访问Shipping_State#shipping_state.ships就会触发badrecord错误。

一个标准的init/0实现应该是这样的：

init() ->
    #shipping_state{
        ships = [
            #ship{id=1, name="Maersk Explorer", container_cap=5000},
            #ship{id=2, name="MSC Horizon", container_cap=6000}
        ]
        % 其他字段可以保持默认值或者按需初始化
    }.

确认你的init/0确实返回了#shipping_state类型的实例，而不是其他数据结构。

3. 修复get_ship函数的逻辑 #

你修改后的代码已经调整了list:keyfind的索引（用2对应#ship元组中的id字段），但还要处理list:keyfind可能返回false的情况（当找不到对应Ship_ID的船舶时），避免匹配失败抛出异常。

优化后的get_ship函数：

get_ship(Shipping_State, Ship_ID) ->
    case list:keyfind(Ship_ID, 2, Shipping_State#shipping_state.ships) of
        false ->
            io:format("Ship with ID ~w not found~n", [Ship_ID]);
        #ship{id=Id, name=Name, container_cap=ContainerCap} ->
            io:format("id = ~w, name = ~s, container cap = ~w~n", [Id, Name, ContainerCap])
    end.

这里直接使用record模式匹配（#ship{...}）比匹配元组更清晰，也更符合Erlang的最佳实践，避免因为record结构变更（比如添加字段）而导致元组匹配失败。

验证步骤 #

1. 确保shipping.hrl和shipping.erl在同一目录下
2. 重新编译模块：c(shipping).
3. 调用测试：shipping:get_ship(shipping:init(), 1).

如果还是报错，检查以下几点：

• 编译时有没有警告？比如找不到头文件的警告
• 打印shipping:init()的返回值，确认它是#shipping_state结构：io:format("~p~n", [shipping:init()]).

内容的提问来源于stack exchange，提问作者Phil Cho