ERlANG - Fractionner les listes en sous-liste

Question

Donc, j'ai juste eu un problème résolu très rapidement par un gars sympa sur mon autre poste.

ERLANG - Splitting Lists into sub list

Maintenant, je suis un débutant à Erlang et ont besoin d'un peu d'aide avec la syntaxe d'une autre fonction qui fonctionne sur le résultat de mon post précédent.

Par exemple, j'ai maintenant:

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

Et je dois diviser davantage à:

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

Le délimiteur dans cet exemple est < < 07 >>

Cette le processus de code est le binaire

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

Mais maintenant, comment puis-je parcourir récursivement le tableau et le faire à nouveau.

Voici un exemple de mon code actuel:

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), 

Je sais que ce doit être quelque chose de super simple, le dernier me avait sûr.

Best, -B

Answer 1

Utilisez une liste compréhensions pour appliquer une fonction à chaque élément d'une liste. La fonction est à peu près le même que pour votre dernière question:

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 

Une autre option est d'utiliser des listes: carte/2:

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

Answer 2

figured it out s'il vous plaît ne hésitez pas à me faire savoir s'il y a un moyen plus efficace - ou - tout simplement votre chemin, j'apprends après tout.

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