编辑代码

-module(example).
-export([main/1]).

%% 检查映射中是否存在多个键，并返回它们的存在性
get_map_values(Map, Keys) ->
    lists:map(fun(Key) -> maps:is_key(Key, Map) end, Keys).

%% 检查所有键是否存在于映射中
all_keys_exist(Map, Keys) ->
    lists:all(fun(Exists) -> Exists end, get_map_values(Map, Keys)).

%% 主函数
main(_) ->
    Data = #{
        'message' => #{
            'amount' => "1.00",
'extras_params' => [50,52,52,36,36,97,108,105,121,117,110,36,36,48,36,36,113,117,105,99,107,103,97,109,101,36,36,51,48,49,36,36,49,20803,31036,21253,36,36],            
            'login_name' => "zp31686398",
            'order_no' => "0120241205181308286331",
            'out_order_no' => #{},
            'pay_time' => "2024-12-05 18:13:17",
            'status' => "0",
            'uid'=>"123"
        }
    },
    
    %% 获取 message 映射
    Message = maps:get('message', Data),
    
    %% 获取各个键的值
    Amount = maps:get('amount', Message, "Not Found"),
    ExtrasParams = maps:get('extras_params', Message, "Not Found"),
    LoginName = maps:get('login_name', Message, "Not Found"),
    OrderNo = maps:get('order_no', Message, "Not Found"),
    OutOrderNo = maps:get('out_order_no', Message, "Not Found"),
    PayTime = maps:get('pay_time', Message, "Not Found"),
    Status = maps:get('status', Message, "Not Found"),
    Uid = maps:get('uid', Message,0),
    
    %% 指定要检查的键列表
    Keys = ['amount', 'login_name', 'order_no', 'out_order_no', 'pay_time', 'status', 'uid'],
    
    %% 获取这些键的存在性
    Existence = all_keys_exist(Message, Keys),
   
    %% 将 ASCII 码值列表转换为字符列表
    CharList = [lists:flatten(io_lib:format("~c", [N])) || N <- ExtrasParams],
    %% 将字符列表连接成一个字符串
    ExtrasParamsStr = CharList,
    io:format("~s~n", [ExtrasParamsStr]).

    [IdOrName,Platform,ZoneId,Channel,PackageId0,PackageName] = string:tokens(ExtrasParamsStr, "$$"),
    io:format("IdOrName: ~s~n", [IdOrName]),
    io:format("Platform: ~s~n", [Platform]),
    io:format("ZoneId: ~s~n", [ZoneId]),
    io:format("Channel: ~s~n", [Channel]),
    io:format("PackageId0: ~s~n", [PackageId0]),
    io:format("PackageName: ~s~n", [PackageName]),
    %% 打印结果
    io:format("Amount: ~p~n", [Amount]),
    io:format("ExtrasParams: ~p~n", [ExtrasParams]),
    io:format("LoginName: ~p~n", [LoginName]),
    io:format("OrderNo: ~s~n", [OrderNo]),
    io:format("OutOrderNo: ~p~n", [OutOrderNo]),
    io:format("PayTime: ~p~n", [PayTime]),
    io:format("Status: ~p~n", [Status]),
    io:format("Uid: ~p~n", [Uid]).