代码整理

src/comMisc/util.erl

@@ -14,60 +14,6 @@
 ]).
 
 
--compile(export_all).
-
-
-
-
-%% @doc 打印最大reductions计数, PID
-sort_red() ->
-   [Pid | T] = erlang:processes(),
-   {_, MaxVal} = erlang:process_info(Pid, reductions),
-   Pid1 = find_max(MaxVal, T, Pid),
-   io:format("max_reductions_pid:~p~n", [erlang:process_info(Pid1)]).
-
-find_max(MaxVal, [TemPid | T], Pid) ->
-   {_, TemMaxVal} = erlang:process_info(TemPid, reductions),
-   case TemMaxVal > MaxVal of
-      true ->
-         find_max(TemMaxVal, T, TemPid);
-      _ ->
-         find_max(MaxVal, T, Pid)
-   end;
-find_max(_, [], Pid) ->
-   Pid.
-
-
-%% @doc 插入到数组尾部
-insert_last(List, Info) when is_list(List) ->
-   Other = lists:reverse(List),
-   Other1 = [Info | Other],
-   lists:reverse(Other1);
-insert_last(_, _) ->
-   [].
-
-%% @doc 打乱数组(只适合比较少的数组)
-upset_list(List) when is_list(List) ->
-   Len = length(List),
-   case List of
-      [_ | _] ->
-         upset_list_loop(Len, List, []);
-      _ ->
-         List
-   end;
-upset_list(_) ->
-   [].
-
-upset_list_loop(_, [], L) ->
-   L;
-upset_list_loop(Len, List, L) when Len > 0 ->
-   Index = util:rand(1, Len),
-   Tuple = lists:nth(Index, List),
-   Other = lists:delete(Tuple, List),
-   upset_list_loop(Len - 1, Other, [Tuple | L]);
-upset_list_loop(_, _, L) ->
-   L.
-
 %% @doc 去除字符串左右空格
 rm_str_lr_space(String) ->
    String1 = rm_str_lr_space1(String),
@@ -382,17 +328,6 @@ check_keyword(Text) ->
          true
    end.
 
-%% @doc 敏感词检测
-%% @spec check_sen_keyword(Type, Text) -> true|false
-%% where Type::base or base_other ; true 存在关键词 ； false 不存在关键词
-check_sen_keyword(base, Text) when is_list(Text) ->
-   svr_chat:word_base(Text);
-check_sen_keyword(base_other, Text) when is_list(Text) ->
-   svr_chat:word_base_other(Text);
-check_sen_keyword(_, _) ->
-   true.
-
-
 %% 长度合法性检查
 check_length(Item, LenLimit) ->
    check_length(Item, 1, LenLimit).

src/comMisc/util1.erl

@@ -1,179 +1,25 @@
 -module(util1).
 
--compile(export_all).
-
-%% 在List中的每两个元素之间插入一个分隔符
-implode(_S, []) ->
-   [<<>>];
-implode(S, L) when is_list(L) ->
-   implode(S, L, []).
-implode(_S, [H], NList) ->
-   lists:reverse([thing_to_list(H) | NList]);
-implode(S, [H | T], NList) ->
-   L = [thing_to_list(H) | NList],
-   implode(S, T, [S | L]).
-
-%%返回X在[Min, Max]区间内的值
-minmax(X, Min, Max) ->
-   min(max(X, Min), Max).
-
-%% 字符->列
-explode(S, B) ->
-   re:split(B, S, [{return, list}]).
-explode(S, B, int) ->
-   [list_to_integer(Str) || Str <- explode(S, B), length(Str) > 0].
-
-thing_to_list(X) when is_integer(X) -> integer_to_list(X);
-thing_to_list(X) when is_float(X) -> float_to_list(X);
-thing_to_list(X) when is_atom(X) -> atom_to_list(X);
-thing_to_list(X) when is_binary(X) -> binary_to_list(X);
-thing_to_list(X) when is_list(X) -> X.
-
-%% 日志记录函数
-log(T, F, A, Mod, Line) ->
-   {ok, Fl} = file:open("logs/error_log.txt", [write, append]),
-   Format = list_to_binary("#" ++ T ++ " ~s[~w:~w] " ++ F ++ "\r\n~n"),
-   {{Y, M, D}, {H, I, S}} = erlang:localtime(),
-   Date = list_to_binary([integer_to_list(Y), "-", integer_to_list(M), "-", integer_to_list(D), " ", integer_to_list(H), ":", integer_to_list(I), ":", integer_to_list(S)]),
-   file:close(Fl).
-
-%% 取得当前的unix时间戳
-unixtime() ->
-   {M, S, _} = game_timer:now(),%%os:timestamp()
-   M * 1000000 + S.
-
-longunixtime() ->
-   {M, S, Ms} = game_timer:now(),
-   (M * 1000000000000 + S * 1000000 + Ms) div 1000.
-
-%% 转换成HEX格式的md5
-md5(S) ->
-   lists:flatten([io_lib:format("~2.16.0b", [N]) || N <- binary_to_list(erlang:md5(S))]).
-
-%% 产生一个介于Min到Max之间的随机整数
-rand(Same, Same) -> Same;
-rand(Min, Max) ->
-   M = Min - 1,
-   if
-      Max - M =< 0 ->
-         0;
-      true ->
-         %% 如果没有种子，将从核心服务器中去获取一个种子，以保证不同进程都可取得不同的种子
-         case get("rand_seed") of
-            undefined ->
-               RandSeed = mod_rand:get_seed(),
-               random:seed(RandSeed),
-               put("rand_seed", RandSeed);
-            _ -> skip
-         end,
-         RanNum = random:uniform(Max - M) + M,
-         RanNum
-   end.
 
-%%随机从集合中选出指定个数的元素length(List) >= Num
-%%[1,2,3,4,5,6,7,8,9]中选出三个不同的数字[1,2,4]
-get_random_list(List, Num) ->
-   ListSize = length(List),
-   F = fun(N, List1) ->
-      Random = rand(1, (ListSize - N + 1)),
-      Elem = lists:nth(Random, List1),
-      List2 = lists:delete(Elem, List1),
-      List2
-       end,
-   Result = lists:foldl(F, List, lists:seq(1, Num)),
-   List -- Result.
-
-
-%%从列表[{a,7},{b,8},{c,90},{d,100}],a为7%概率,中根据概率选出指定数目不重复的元素列表
-%%注意Num不能大于lenth(List)
-get_random_list_probability(List, Num) ->
-   F = fun(Elem, ProbabilityValue) ->
-      lists:duplicate(ProbabilityValue, Elem)
-       end,
-   Result1 = lists:flatten([F(Elem, ProbabilityValue) || {Elem, ProbabilityValue} <- List]),
-   ProbabilityList = lists:reverse(lists:sort([ProbabilityValue || {_Elem, ProbabilityValue} <- List])),
-   MaxProbabilityValue = lists:sum([lists:nth(N, ProbabilityList) || N <- lists:seq(1, Num)]),
-   Result2 = get_random_list(Result1, Num + MaxProbabilityValue - length(List)),
-   Result3 = lists:usort(Result2),
-   Result4 = get_random_list(Result3, Num),
-   Result4.
-
-get_randomId_by_value([], _) ->
-   fail;
-get_randomId_by_value(Data, Random) ->
-   case lists:nth(1, Data) of
-      {Id, Weight} ->
-         case Weight >= Random of
-            true ->
-               Id;
-            false ->
-               get_randomId_by_value(Data -- [{Id, Weight}], Random - Weight)
-         end;
-      _ ->
-         io:format("get_randomId_by_value no match")
-   end.
 
-%%从列表[{a,7},{b,8},{c,9},{d,10}],a为7权重,b为8权重
-get_random_by_weight(List) ->
-   F = fun({Id, Weight}, Sum) ->
-      Sum + Weight
-       end,
-   Sum2 = lists:foldl(F, 0, List),
-   RandomVa = random:uniform(Sum2),
-   RandomId = get_randomId_by_value(List, RandomVa).
-
-
-%%向上取整
-ceil(N) ->
-   T = trunc(N),
-   case N == T of
-      true -> T;
-      false -> 1 + T
-   end.
 
-%%向下取整
-floor(X) ->
-   T = trunc(X),
-   case (X < T) of
-      true -> T - 1;
-      _ -> T
-   end.
 
-sleep(T) ->
-   receive
-   after T -> ok
-   end.
 
-sleep(T, F) ->
-   receive
-   after T -> F()
-   end.
 
-get_list([], _) ->
-   [];
-get_list(X, F) ->
-   F(X).
-
-%% for循环
-for(Max, Max, F) ->
-   F(Max);
-for(I, Max, F) ->
-   F(I),
-   for(I + 1, Max, F).
-
-%% 带返回状态的for循环
-%% @return {ok, State}
-for(Max, Min, _F, State) when Min < Max ->
-   {ok, State};
-for(Max, Max, F, State) -> F(Max, State);
-for(I, Max, F, State) -> {ok, NewState} = F(I, State), for(I + 1, Max, F, NewState).
-
-
-for_new(Min, Max, _F, State) when (Min > Max) ->
-   {ok, State};
-for_new(Min, Max, F, State) ->
-   {ok, NewState} = F(Min, State),
-   for_new(Min + 1, Max, F, NewState).
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 
 
 %% term序列化，term转换为string格式，e.g., [{a},1] => "[{a},1]"