私は現在、erlangテクニックを学ぶためにrabbitmqソースコードを研究しています。
以下はrabbit_misc.erl
ファイルからです。目的は、アプリケーションの最小バージョンを確認することです。の5番目と7番目のサブセンテンスにversion_compare/N
は、特殊文字があり$0
ます。しかし、私はそれがどのように起こるのか分かりませんか?それが起こらない私の理由は、lists:splitwith / Nの後の最後の文で、AT1
でBT1
始まるということ"$."
です。
version_compare(A, B, lte) ->
case version_compare(A, B) of
eq -> true;
lt -> true;
gt -> false
end;
version_compare(A, B, gte) ->
case version_compare(A, B) of
eq -> true;
gt -> true;
lt -> false
end;
version_compare(A, B, Result) ->
Result =:= version_compare(A, B).
version_compare(A, A) ->
eq;
version_compare([], [$0 | B]) ->
version_compare([], dropdot(B));
version_compare([], _) ->
lt; %% 2.3 < 2.3.1
version_compare([$0 | A], []) ->
version_compare(dropdot(A), []);
version_compare(_, []) ->
gt; %% 2.3.1 > 2.3
version_compare(A, B) ->
{AStr, ATl} = lists:splitwith(fun (X) -> X =/= $. end, A),
{BStr, BTl} = lists:splitwith(fun (X) -> X =/= $. end, B),
ANum = list_to_integer(AStr),
BNum = list_to_integer(BStr),
if ANum =:= BNum -> version_compare(dropdot(ATl), dropdot(BTl));
ANum < BNum -> lt;
ANum > BNum -> gt
end.