2010-08-12 203 views
1

所以,我刚刚遇到了一个问题,我的另一个帖子上的一个好人很快就解决了。ERlANG - 将列表拆分成子列表

ERLANG - Splitting Lists into sub list

现在,我在二郎一个初学者,需要与确实从我以前的帖子,结果工作的另一个函数的语法有点帮助。

例如,我现在有:

Reply = [<<56,45,34,07,45,67,34>>, <<12,23,56,07,67,67>>, <<55,23,45,07,89,56>>] 

,我需要进一步分裂它:

[ [<<56,45,34>>,<<45,67,34>>], [<<12,23,56>>,<<67,67>>] , [<<55,23,45>>, <<89,56>>] ] 

本例中的分隔符是< < 07 >>

这代码进程的二进制代码

parse(Reply) -> binary:split(Reply, <<07>>, [global]). 

但现在我怎么可以递归地通过数组,然后再做一次。

这里是我当前的代码示例:

parse(Reply) -> binary:split(Reply, <<01>>, [global]). 
parse2(Reply) -> binary:split(Reply, <<07>>, [global]). 

func1(Done) -> [parse2(X) || X <- Done]. 

%%blah blah - get to the executing functions code 
Done = parse(Reply), 
Done1 = func1(Done), 

我知道它是什么超级简单最后一个肯定了我。

最佳, -B

回答

1

使用列表解析函数应用到列表中的每个元素。该功能几乎是一样的你最后一个问题:

1> L = [<<56,45,34,07,45,67,34>>, <<12,23,56,07,67,67>>, <<55,23,45,07,89,56>>]. 
[<<56,45,34,7,45,67,34>>, 
<<12,23,56,7,67,67>>, 
<<55,23,45,7,89,56>>] 
2> [binary:split(X, <<07>>, [global]) || X <- L]. 
[[<<"8-\"">>,<<"-C\"">>], 
[<<12,23,56>>,<<"CC">>], 
[<<55,23,45>>,<<"Y8">>]] 
3> io:format("~w~n",[[binary:split(X, <<07>>, [global]) || X <- L]]). 
[[<<56,45,34>>,<<45,67,34>>],[<<12,23,56>>,<<67,67>>],[<<55,23,45>>,<<89,56>>]] 
ok 

另一种选择是使用列表:地图/ 2:

4> lists:map(fun(X) -> binary:split(X, <<07>>, [global]) end, L). 
[[<<"8-\"">>,<<"-C\"">>], 
[<<12,23,56>>,<<"CC">>], 
[<<55,23,45>>,<<"Y8">>]] 
0

想通了,请随时让我知道,如果有一个更有效的方法 - 或 - 只是你的方式,我学习毕竟。

parse(Reply) -> binary:split(Reply, <<01>>, [global]). 
parse2(<<>>) -> <<>>; 
parse2(Reply) -> binary:split(Reply, <<"=">>, [global]). 

func2([H|T], Result) -> 
    H1 = parse2(H), 
    func2(T, [H1|Result]); 
func2([], Result) -> io:format("Reply 1 = ~p~n", [Result]), Result. 


Done = parse(Reply), 

Done1 = func2(Done, []), 

-B