2010-08-12 108 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