二进制字符串erlang的第一个字

Question

我需要做这样的事情 >，它应该返回 。我如何在没有拆分功能的情况下做到这一点，只能通过模式匹配和选择/如果使用 Erlang 的情况。谢谢。

Answer 1

虽然Attic的approach是正确的，但有一个简单的解决方案（包括修剪前导空格）：

first_word_bin(Bin) ->
    first_word_bin(ltrim(Bin), <<>>).

first_word_bin(<<>>, Acc) -> Acc;
first_word_bin(<<$\s, _/binary>>, Acc) -> Acc;
first_word_bin(<<X, Bin/binary>>, Acc) ->
    first_word_bin(Bin, <<Acc/binary, X>>).

ltrim(<<$\s, Bin/binary>>) -> ltrim(Bin);
ltrim(Bin) -> Bin.

Answer 2

不知道你为什么不想使用 binary:split。这是实现此目的的一个方法，但我不太喜欢它。

first_word_bin(Bin) ->
    Len = length_till_space(Bin, 0),
    <<Bin:Len/binary>>.

length_till_space(<<>>, Num) -> Num;
length_till_space(<<$\s, _/binary>>, Num) -> Num;
length_till_space(<<_:1/binary, Tl/binary>>, Num) ->
    length_till_space(Tl, Num + 1).

但是，如果二进制文件开头有空格，例如

>

那么结果将是>，如果没有开头的空格，它将是>。这可以通过预先修剪起始空白来解决，但您可以使用相同的方法。

所以我们使用 length_till_space 来获取字符的数量，直到它碰到一个空格。第一种情况检查二进制是否为空，第二种情况检查二进制的头部是否为 $\s（空格），最后一种情况只是进行尾调用并增加数字。

最后我们从二进制文件中获取前 X 个字符并将其返回。