erlang字符串分割

最新推荐文章于 2025-01-06 22:25:32 发布

舒沉

最新推荐文章于 2025-01-06 22:25:32 发布

阅读量3.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： erlang

本文链接：https://blog.youkuaiyun.com/shallowgrave/article/details/8362894

erlang 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一种使用 Erlang 实现的字符串分割函数，包括 split、split2 和 splitn 函数。这些函数能够根据指定的分隔符将字符串分割成多个部分，并支持不同级别的分割深度。通过一系列测试用例验证了函数的正确性和实用性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

先上代码：

split(L, Splitters) ->
    string:tokens(L, Splitters).

split2(L, Splitters)  ->
    case lists:any(fun(A) -> string:str(L,[A]) > 0 end, Splitters) of 
	true ->
	  [H|_] = split(L, Splitters),
	  T = string:substr(L,string:len(H)+2),
	  case length(T) of
	      0 ->
		[H];
	      _ ->
		[H,T]
	  end;
	_ ->
	  [L]
    end.

splitn(L, Splitters, N) ->
    splitn(L, Splitters, N, []).
splitn([], Splitters, N, NL) -> 
    NNL = lists:concat([[],NL]),
    lists:reverse(NNL);
splitn(L, Splitters, 1, NL) -> 
    [H|T] = split2(L, Splitters),
    NNL = lists:reverse(NL),
    case length(T) of
	0 ->
	  lists:concat([NNL, [H]]);
	_ ->
	  NT = lists:concat([T]),
	  lists:concat([NNL, [H], NT])
    end;
splitn(L, Splitters, N, NL) ->
    [H|[T]] = split2(L, Splitters),
    splitn(T, Splitters, N-1, [H|NL]).

测试用例：

split_test(_Config) ->
    A1 = "firstname",
    A2 = "secondname",
    A = string:join([A1, A2], ":"),
    B1 = "info1_1",
    B2 = "info1_2",
    B = string:join([B1, B2], ":"),
    C = "info2",
    D = "info3",
    E = "info4",
    F = "info5",
    G = "info6",

    List = string:join([A, B, C, D, E, F, G], ";"),
    [A,B,C,D,E,F,G] = mr_util:split(List, ";"),
    
    L1 = string:join([B,C,D,E,F,G],";"),
    [A,L1] = mr_util:split2(List, ";"),
    L2 = string:join([A2,B,C,D,E,F,G],";"),
    [A1,L2] = mr_util:split2(List, ";:"),
    
    L3 = string:join([C,D,E,F,G], ";"),
    [A,B,L3] = mr_util:splitn(List, ";", 2),
    L4 = string:join([D,E,F,G], ";"),
    [A,B,C,L4] = mr_util:splitn(List, ";", 3),
    L5 = string:join([B,C,D,E,F,G], ";"),
    [A1,A2,L5] = mr_util:splitn(List, ";:", 2),
    L6 = string:join([B2,C,D,E,F,G], ";"),
    [A1,A2,B1,L6] = mr_util:splitn(List, ";:", 3),
    ok.