Question

嗨，这是我的第一篇帖子，希望大家都好。所以我刚刚开始erlang，我遇到了一个问题，我不确定如何解决。

所以我有一个我以

的形式收到的二进制文件

<<56, 23, 67, 34, 45, 78, 01, 54, 67, 87, 45, 53, 01, 34, 56, 78>>

我的目标是根据01将其拆分为子列表（如果效率更高，则为二进制文件）。

例如，上面应该看起来像：

<<56, 23, 67, 34, 45, 78>> <<54, 67, 87, 45, 53>> <<34, 56, 78>>

-OR -

[[56, 23, 67, 34, 45, 78], [54, 67, 87, 45, 53], [34, 56, 78]]

01是分隔标记，不需要包含在最终输出中。

我已尝试过这样的事情:(请不要理解是否有更好的方法）

parse1([]) -> [];
parse1(1) -> io:format("SOHSOHSOHSOHSOHSSOHSOHS");
parse1(Reply) -> parse1({Reply, []});
parse1({Reply, nxtParse}) ->
    [H | T] = Reply,
    case H of
         _ when H > 1 ->
            [H | nxtParse],
              io:format("Reply 1 = ~p~n", [H]),
            parse1({T, nxtParse});
         _ when H == 1 -> 
            io:format("SOHSOHSOHSOHSOHSSOHSOHS");

        [] ->
            ok

    end.

这根本不是很干净，根本不像专业人士写的那样。当有人告诉我时，我肯定会把头撞到“呃”。

我意识到肯定有多个解决方案，但最好的解决方案是什么。看来ERL有很多BIF和做事的方式，我想要找到自己的方式。

感谢帮助人员 -B

Answer 1

使用R14A，Erlang现在包含一个binary模块来处理这些任务：

1> Bin = <<56, 23, 67, 34, 45, 78, 01, 54, 67, 87, 45, 53, 01, 34, 56, 78>>.
<<56,23,67,34,45,78,1,54,67,87,45,53,1,34,56,78>>
2> binary:split(Bin, <<01>>, [global]).
[<<56,23,67,34,45,78>>,<<"6CW-5">>,<<"\"8N">>]

请注意，虽然它看起来不对（<<"6CW-5">>和<<"\"8N">>），但基础表示是正确的，字符串是试图找出如何打印二进制文件的VM。以原始格式输出时看到相同的调用：

3> io:format("~w~n", [binary:split(Bin, <<01>>, [global])]).
[<<56,23,67,34,45,78>>,<<54,67,87,45,53>>,<<34,56,78>>]
ok

ERLANG - 将列表拆分为子列表

1 个答案: