Erlang模式匹配详解：从基础语法到高级错误处理

% 定义一个接受元组的函数
pair_sum({X, Y}) ->
    % 模式匹配将元组分解为 X 和 Y 两个变量
    X + Y.

% 定义一个处理接收到的消息的函数
process_message() ->
    receive
        {request, Data} ->
            % 匹配包含 request 原子和 Data 的元组
            handle_request(Data);
        {reply, Response} ->
            % 匹配包含 reply 原子和 Response 的元组
            send_response(Response)
    end.

% 处理请求的函数
handle_request(Data) ->
    % 处理 Data，并返回响应
    ok.

% 发送响应的函数
send_response(Response) ->
    % 发送 Response
    ok.

% 定义一个函数，用于检查列表是否为空
is_empty([]) ->
    true;
is_empty(_) ->
    false.

% 定义一个函数，用于获取列表的第一个元素
first_element([First | Rest]) ->
    % 模式匹配将列表分解为第一个元素 First 和剩余部分 Rest
    First.

% 定义一个函数，根据年龄返回不同的信息
person_info(Age) when Age >= 18 ->
    "Adult";
person_info(Age) when Age >= 13, Age =< 17 ->
    "Teenager";
person_info(Age) ->
    "Child".

my_function({Key, Value}) -> % 匹配元组并解构为 Key 和 Value
    % 使用 Key 和 Value 进行操作
    ok.

receive
    MessagePattern1 ->
        % 处理消息类型1
        ok;
    MessagePattern2 ->
        % 处理消息类型2
        ok;
    after Timeout ->
        % 超时行为
        ok
end

head([ListHead | ListTail]) -> % 匹配非空列表并解构为 ListHead 和 ListTail
    ListHead;
is_empty([]) -> % 匹配空列表
    true.

access_tuple({X, Y, Z}) ->
    % 直接使用 X, Y, Z
    ok.

-record(user, {name, age}).
get_user_name(User = #user{name = Name}) ->
    Name.

handle_result({ok, Value}) ->
    % 处理 ok 情况
    ok;
handle_result({error, Reason}) ->
    % 处理 error 情况
    ok.

even_numbers(ListOfNumbers) ->
    [Number || Number <- ListOfNumbers, is_even(Number)].

try_do_something() ->
    try
        % 尝试执行可能抛出错误的操作
        ok
    catch
        Error:Reason ->
            % 使用模式匹配捕获错误类型和原因
            ok
    after
        % 清理代码
        ok
    end.

my_function(X) when is_integer(X), X > 0 ->
    % 仅当 X 是正整数时执行
    ok.

check_pair({X, Y}) when is_integer(X), is_integer(Y) ->
    % 确保 X 和 Y 都是整数
    ok.

handle_error(Reason) ->
    case Reason of
        {badmatch, _} ->
            io:fwrite("No match found~n");
        {timeout, _} ->
            io:fwrite("Operation timed out~n");
        _ ->
            io:fwrite("An unexpected error occurred: ~p~n", [Reason])
    end.

safe_call(Function, Args) ->
    try apply(Function, Args) catch
        error:badarith ->
            io:fwrite("Bad arithmetic operation~n");
        exit:{noproc} ->
            io:fwrite("The process does not exist~n");
        throw:Reason ->
            io:fwrite("Thrown error: ~p~n", [Reason])
    end.

catch_error() ->
    try dangerous_function()
    catch
        exit:{timeout, StackTrace} ->
            io:fwrite("Exit with timeout, stack trace: ~p~n", [StackTrace]);
        Class:Reason:StackTrace ->
            io:fwrite("Error ~p:~p, stack trace: ~p~n", [Class, Reason, StackTrace])
    end.

safe_operation() ->
    try risky_operation()
    catch
        throw:Error when is_atom(Error) ->
            io:fwrite("Caught an atom throw: ~p~n", [Error])
    end.

-define(MY_ERROR, {my_error, my_reason}).

handle_custom_error(Reason) ->
    case Reason of
        ?MY_ERROR ->
            io:fwrite("My custom error occurred~n");
        _ ->
            io:fwrite("An unknown error occurred~n")
    end.

error_info({error, {key_not_found, Key}}) ->
    io:fwrite("Key not found: ~p~n", [Key]);
error_info(_) ->
    io:fwrite("An unknown error occurred~n").

close_resources() ->
    try do_something_with_resources()
    catch
        _:_ ->
            % 异常发生时的处理
            ok
    after
        cleanup:close_all_resources()
    end.

convert_error() ->
    try risky_call()
    catch
        exit:Reason ->
            throw({converted_error, Reason})
    end.