2

我用这段代码测试：

get_fee(Transaction,SourceNumber,Amount, Currency) ->
Url = lists:concat(["http://localhost/test.php","?transaction=", Transaction, "&saccount=", SourceNumber,Amount,"&currency=",Currency]),
        inets:start(),
        {Flag, Response} = http:request(get, {Url, []}, [], []),
        case Flag of
            ok ->
                { { _, ReturnCode, _ }, _, Body } = Response,

                if ReturnCode =:= 200 ->
                        {ok,{_,[{_,Code},{_,Permission},{_,Payer},{_,Payee}]}} = json:decode_string(Body),
                            case Permission of true ->
                                if Code =:= 200 ->
                                    {ok,{Code, Payer, Payee}};
                                Code =:= 204 ->
                                    {nok,{Code, not_found}};
                                true ->
                                    {nok,{Code, parameter_error}}
                                end;
                            false ->
                                {nok,{Code, parameter_error}}
                            end;
                    true->
                        {error, http_error}
                end;
            error ->
                case Response of
                    nxdomain -> {error, dns_error};
                    _ -> {error, network_error}

                end
        end.

http的响应是： {"code":200,"permission":true,"fee_payer":0,"fee_payee":19}

但是现在我喜欢做同样的想法，但是在这种情况下 http 的返回例如是：

{"CIN":"08321224","Name":21}

所以在这种情况下我只有 CIN 和 Name

我尝试改变以前的

get_fee(Num) ->
    Url = lists:concat(["http://localhost/GTW/Operation.php","?ACCOUNT_NUM=", Num]),




            inets:start(),
             {Flag, Response} = http:request(get, {Url, []}, [], []),
            case Flag of
                ok ->
                    { { _, ReturnCode, _ }, _, Body } = Response,
                    %% for debug
                   io:format("~p~n",[ReturnCode]),
                    if ReturnCode =:= "08321224" ->
                            {ok,{_,[{_,CIN},{_,Name}]}} = json:decode_string(Body),
                                case Name of 21 ->
                                                 io:format(CIN),
                                                 io:format(Name),
                                    if CIN =:= "08321224"->
                                        {ok,{CIN, Name}};
                                    CIN =:= 204 ->
                                        {nok,{CIN, not_found}};
                                    true ->
                                        {nok,{CIN, parameter_error}}
                                    end;
                                false ->
                                    {nok,{CIN, parameter_error}}
                                end;
                        true->
                            {error, http_error}
                    end;
                error ->
                    case Response of
                        nxdomain -> {error, dns_error};
                        _ -> {error, network_error}
                    %% for debug
                    %%io:format("pass2~n ~p~n",[Response]),
                    end
  end.

但它显示：

test:get_fee("0001").
200
{error,http_error}
4

2 回答 2

7

所以我会在这里挑剔风格，因为如果你遵循 Erlang 的语义思想，你会更好： 

get_fee(Num) ->
    Url = lists:concat(["http://localhost/GTW/Operation.php","?ACCOUNT_NUM=", Num]),
    inets:start(),

这是错误的起点inets。它应该在此功能之外启动，因为您只需要执行此操作。

{Flag, Response} = http:request(get, {Url, []}, [], []),

这部分最好用模式匹配编码。Flag和的区分Response可以直接用简单的匹配来解码。写，

case http:request(get, {Url, []}, [], []) of
  {ok, {{_, 200, _}, _, Body}} ->
      {ok, R} = json:decode_string(Body),
      get_fee_decode_(get_cin(R), get_name(R));
  {error, Reason} -> {error, Reason}
end.

我建议不要更改{error, nxdomain}为，{error, dns_error}因为无论如何都可以nxdomain完美地编码这种情况。只需将错误元组传递给调用者并让他处理即可。

get_fee_decode_("08321224" = CIN, 21 = Name) -> {ok, {CIN, Name}};
get_fee_decode_("204" = CIN, 21) -> {nok, {CIN, not_found}};
get_fee_decode_(CIN, _Name) -> {nok, {CIN, parameter_error}};

引入一个像这样的新函数来处理代码库的内部部分。并将匹配提升到顶层。从长远来看，这有助于将您的代码解耦为函数。

请注意，在 JSON 结构中，“对象”没有顺序，因此您不能假设该结构是

{"code":200,"permission":true,"fee_payer":0,"fee_payee":19}

但根据 JSON，解码不必保留这种结构。所以一个有效的解码可能是：

[{"fee_payee", 19}, {"fee_payer", 0}, {"permission", true}, {"code", 200}]

这将无法在您的代码中匹配，并且您稍后会为一些讨厌的错误设置自己。

你想要一些类似的东西：

get_fee_payer(PL) -> proplists:get_value("fee_payer", PL).

另一个对你的编程风格有问题的事情是你隐藏了错误信息的情况。在 Erlang 中，您通常可以避免只处理代码中的“快乐路径”，而将所有错误处理都放在一边，直到您知道代码库中存在什么样的错误。然后您可以开始慢慢添加错误处理。如果可以避免，防御性编程不是你应该做的事情。

于 2012-12-20T10:50:04.840 回答
2

你变了：

if ReturnCode =:= 200 ->

至：

if ReturnCode =:= "08321224" ->

但是，这需要在您的版本中保持不变。200 是“OK”的 HTTP 状态码——这里的第一步是验证服务器是否确实处理了请求并返回了肯定的回复。您只会在其中找到该数字Body-这就是该if CIN =:= "08321224"->零件的用途。

于 2012-12-20T10:19:43.720 回答