Binary 删除Erlang中二进制文件中的尾随0
我目前正在用Erlang编写一个函数，它需要没有尾随零的二进制文件。由于实现和其他输入，将返回的内容将有尾随的零 换言之，我将拥有以下内容：Binary 删除Erlang中二进制文件中的尾随0,binary,erlang,trim,strip,Binary,Erlang,Trim,Strip,我目前正在用Erlang编写一个函数，它需要没有尾随零的二进制文件。由于实现和其他输入，将返回的内容将有尾随的零 换言之，我将拥有以下内容： 和 对于上述内容，我需要获得： 和 需要保留结尾处连续零之前的零 如果有人能给出解决方案，我们将不胜感激。谢谢大家! 简单而直接的方法是： 1> Binary = <<3,1,0,2,4,5,0,0,2,3,4,0,0,0,0,0>>. <<3,1,0,2,4,5,0,0,2,3,4,0,0,0,0,0>&g
如果有人能给出解决方案，我们将不胜感激。谢谢大家! 简单而直接的方法是：
1> Binary = <<3,1,0,2,4,5,0,0,2,3,4,0,0,0,0,0>>.
<<3,1,0,2,4,5,0,0,2,3,4,0,0,0,0,0>>
2> list_to_binary(lists:reverse(lists:dropwhile(fun(0) -> true; (_) -> false end, lists:reverse(binary_to_list(Binary))))).
<<3,1,0,2,4,5,0,0,2,3,4>>
1>二进制=。
2> 列表到二进制（列表：反向（列表：dropwhile（fun（0）->true；（\u）->false结束，列表：反向（二进制到列表（二进制‘‘）’））。
我建议您使用真实的数据对其进行分析，看看它是否适合您。简单而直接的方法如下：
1> Binary = <<3,1,0,2,4,5,0,0,2,3,4,0,0,0,0,0>>.
<<3,1,0,2,4,5,0,0,2,3,4,0,0,0,0,0>>
2> list_to_binary(lists:reverse(lists:dropwhile(fun(0) -> true; (_) -> false end, lists:reverse(binary_to_list(Binary))))).
<<3,1,0,2,4,5,0,0,2,3,4>>
1>二进制=。
2> 列表到二进制（列表：反向（列表：dropwhile（fun（0）->true；（\u）->false结束，列表：反向（二进制到列表（二进制‘‘）’））。
我建议用真实的数据来分析它，看看它是否对你有用。在评论中注意到@caluga的类似解决方案之前，我先整理了一个解决方案。这个可以处理空二进制文件或全零
strip(B) ->
strip(B, erlang:byte_size(B) - 1).
strip(_B, -1) ->
<<>>;
strip(B, Idx) ->
case binary:at(B, Idx) of
0 -> strip(B, Idx - 1);
_ -> binary:part(B, 0, Idx + 1)
end.
1> demo:strip(<<>>).
<<>>
2> demo:strip(<<0>>).
<<>>
3> demo:strip(<<0,0>>).
<<>>
4> demo:strip(<<1,2>>).
<<1,2>>
5> demo:strip(<<1,0,2>>).
<<1,0,2>>
6> demo:strip(<<1,0,2,0>>).
<<1,0,2>>
7> demo:strip(<<1,0,2,0,0>>).
<<1,0,2>>
strip（B）->
strip（B，erlang:byte_size（B）-1）。
条带（_B，-1）->
;
带（B，Idx）->
大小写二进制：的（B，Idx）处
0->strip（B，Idx-1）；
_->二进制：部分（B，0，Idx+1）
结束。
1> 演示：strip（）。
2> 演示：strip（）。
3> 演示：strip（）。
4> 演示：strip（）。
5> 演示：strip（）。
6> 演示：strip（）。
7> 演示：strip（）。
strip(B) ->
strip(B, erlang:byte_size(B) - 1).
strip(_B, -1) ->
<<>>;
strip(B, Idx) ->
case binary:at(B, Idx) of
0 -> strip(B, Idx - 1);
_ -> binary:part(B, 0, Idx + 1)
end.
1> demo:strip(<<>>).
<<>>
2> demo:strip(<<0>>).
<<>>
3> demo:strip(<<0,0>>).
<<>>
4> demo:strip(<<1,2>>).
<<1,2>>
5> demo:strip(<<1,0,2>>).
<<1,0,2>>
6> demo:strip(<<1,0,2,0>>).
<<1,0,2>>
7> demo:strip(<<1,0,2,0,0>>).
<<1,0,2>>
strip（B）->
strip（B，erlang:byte_size（B）-1）。
条带（_B，-1）->
;
带（B，Idx）->
大小写二进制：的（B，Idx）处
0->strip（B，Idx-1）；
_->二进制：部分（B，0，Idx+1）
结束。
1> 演示：strip（）。
2> 演示：strip（）。
3> 演示：strip（）。
4> 演示：strip（）。
5> 演示：strip（）。
6> 演示：strip（）。
7> 演示：strip（）。
-module(strip).
-export([trailing0/1]).
trailing0(B) when is_binary(B) ->
S = byte_size(B) - 1,
case B of
<<Prefix:S/bytes, 0>> -> trailing0(Prefix);
_ -> B
end;
trailing0(B) -> error(badarg, [B]).
-模块（条带）。
-导出（[trailing0/1]）。
trailing0（B）何时为二进制（B）->
S=字节大小（B）-1，
案件B
->trailing0（前缀）；
_->B
结束；
trailing0（B）->错误（badarg[B]）。
trailing0(B) when is_binary(B) ->
S = byte_size(B) - 1,
S2 = S - 7,
case B of
<<Prefix:S2/bytes, 0:64>> -> trailing0(Prefix);
<<Prefix:S/bytes, 0>> -> trailing0(Prefix);
_ -> B
end;
trailing0(B) -> error(badarg, [B]).
trailing0（B）何时为二进制（B）->
S=字节大小（B）-1，
S2=S-7，
案件B
->trailing0（前缀）；
->trailing0（前缀）；
_->B
结束；
trailing0（B）->错误（badarg[B]）。
-module(strip).
-export([trailing0/1]).
trailing0(B) when is_binary(B) ->
S = byte_size(B) - 1,
case B of
<<Prefix:S/bytes, 0>> -> trailing0(Prefix);
_ -> B
end;
trailing0(B) -> error(badarg, [B]).
-模块（条带）。
-导出（[trailing0/1]）。
trailing0（B）何时为二进制（B）->
S=字节大小（B）-1，
案件B
->trailing0（前缀）；
_->B
结束；
trailing0（B）->错误（badarg[B]）。
trailing0(B) when is_binary(B) ->
S = byte_size(B) - 1,
S2 = S - 7,
case B of
<<Prefix:S2/bytes, 0:64>> -> trailing0(Prefix);
<<Prefix:S/bytes, 0>> -> trailing0(Prefix);
_ -> B
end;
trailing0(B) -> error(badarg, [B]).
trailing0（B）何时为二进制（B）->
S=字节大小（B）-1，
S2=S-7，
案件B
->trailing0（前缀）；
->trailing0（前缀）；
_->B
结束；
trailing0（B）->错误（badarg[B]）。