erlang 坑

最新推荐文章于 2024-08-16 21:54:55 发布

杨宗卫的爸爸

最新推荐文章于 2024-08-16 21:54:55 发布

阅读量1.8k

点赞数 1

分类专栏： erlang 文章标签： erlang

erlang 专栏收录该内容

51 篇文章 3 订阅

订阅专栏

任何语言在使用中都会遇到这样那样的问题，erlang也是。这里整理下我遇到的一些问题，避免继续踩坑。说实话，“防坑指南”这个标题有点过于标新立异，不过还是希望能引起重视，避免在实际开发中重复犯这些问题。

'--' 运算与 '++'运算

1> [1,2,3,4] -- [1] -- [2].

[2,3,4]

算是erlang经典的问题了。这是从后面算起的，先算 [1] -- [2] ，得到 [1] 后被 [1,2,3,4] --，最后得到 [2,3,4]

'++'运算也是一样的，也是从后面开始算起。

2> [1,2,3,4] -- [1] ++ [2,3,4].[]

另外，以下这种情况也要注意，只会减去遇到的第一个元素。

3> [1,2,3,2] -- [2].

[1,3,2]

erlang:function_exported()

这个接口是用来检查模块函数是否导出，但是，如果模块没加载过，这个函数返回值就是false

3> erlang:function_exported(odbc,start,0).

false

4> odbc:start().

5> erlang:function_exported(odbc,start,0).

true

我之前也讨论过这个问题，解决方案看这里

erlang:list_to_binary()

如果参数是多层嵌套结构，就会被扁平化掉，使用 binary_to_list 不能转成原来的数据，也就是不可逆的。

6> list_to_binary([1,2,[3,4],5]) .

<<1,2,3,4,5>>

如果想可逆，可以使用 erlang:term_to_binary

7> binary_to_term(term_to_binary([1,2,[3,4],5])).

[1,2,[3,4],5]

erlang:list_to_atom()

这个函数用于字符串转原子，本身没什么问题，但是erlang系统有原子总数限制，除非整个节点关闭了，否则原子就算没用到了也不会被gc。而 lists_to_atom() 如果要转换的原子不存在，将会自动重新生成。可以换成另外一个函数 list_to_existing_atom ，只会生成已经存在的原子

2> list_to_atom("erlang").erlang3> list_to_existing_atom("erlang").erlang4> list_to_existing_atom("hello").** exception error: bad argument in function list_to_existing_atom/1 called as list_to_existing_atom("hello")

也不是说 lists_to_atom 不能使用，避免直接将远程传过来的字符串转成原子。

除了这里提到的，还有 binary_to_atom() ， binary_to_term() 也有这个问题。对于binary_to_atom() 可以换成 binary_to_existing_atom(），但 binary_to_term () 有点不同，参考 erlang binary数据转换的问题解决这个问题

random:uniform()

这个用于生成随机数，返回一个随机数浮点数。但是，这个函数的随机初始种子是个定值，而且种子就放在进程字典，就是说每个进程生成的随机数都是一样的。坑爹啊。

10> spawn(fun() -> io:format("~w ~w~n",[random:uniform(),random:uniform()]) end)
,ok.
0.4435846174457203 0.7230402056221108
ok
11> spawn(fun() -> io:format("~w ~w~n",[random:uniform(),random:uniform()]) end)
,ok.
0.4435846174457203 0.7230402056221108
ok

所以，解决的方法就是进程启动后要重置随机数种子，然后再使用这个函数。

13> random:seed(erlang:now()), random:uniform().
0.4691405130019146

或者重写掉这个函数：

uniform() ->
{A1, A2, A3} = case get(random_seed) of
undefined -> erlang:now();
Tuple -> Tuple
end,
B1 = (A1*171) rem 30269,
B2 = (A2*172) rem 30307,
B3 = (A3*170) rem 30323,
put(random_seed, {B1,B2,B3}),
R = A1/30269 + A2/30307 + A3/30323,
R - trunc(R).

try... catch

try1(ErrType) ->

try

case ErrType of

error -> erlang:error(error);

exit -> erlang:exit (exit);

throw -> erlang:throw(throw)

end

catch

Err -> Err

end.

8> test:try1(error).

** exception error: error

in function test:try1/1 (test.erl, line 7)

9> test:try1(exit).

** exception exit: exit

in function test:try1/1 (test.erl, line 8)

10> test:try1(throw).

throw

以上结果只有 throw可以匹配，如果想要全部匹配到要改写这个函数：

try1(ErrType) ->

try

case ErrType of

error -> erlang:error(error);

exit -> erlang:exit (exit);

throw -> erlang:throw(throw)

end

catch

_:Err -> Err

end.

匿名函数（fun）

匿名函数的使用场景很多，经常被用作回调函数，比如lists模块就大量使用匿名函数做回调。在现在的erlang版本中，匿名函数会在编译期优化成本地函数。如果把匿名函数以进程字典保存，或者收到其他进程发来的匿名函数消息但是没有处理，就可能导致进程被kill。这是因为模块热更新时会检查旧代码是否被使用，如果有进程使用，就会杀掉进程。如何保存匿名函数，而且不怕热更新时进程被杀掉?有两种做法：1. 以MFA方式，然后这样调用 M:F(A) 或者 apply(M, F, A)2. 以fun M:F/A 形式，如 fun m:test/0

断言（guard）

check(A) when length(A) > 9 ->

error;

check(_) ->

ok.

检查list长度，但如果传入的数据不是list，结果又会怎样？

11> test:check(hack).

在 guard 模式下，原本会抛出异常的代码就不会报错了，而是结束当前计算并返回false。

顺道说下以下几种情况：

check1(A) when length(A) > 9 ; true->

error;

check1(_) ->

ok.

check2(A) when length(A) > 9 orelse true->

error;

check2(_) ->

ok.

check3(A) when length(A) > 9 , true->

error;

check3(_) ->

ok.

check4(A) when length(A) > 9 andalso true->

error;

check4(_) ->

ok.

12> test:check1(hack).

error

13> test:check2(hack).

14> test:check3(hack).

15> test:check4(hack).

如此可见，orelse 和 ',' 运算还是有区别的。

io_lib:char_list()

这个函数在R15和R16下运行结果可能是相反的。

R15下：

Eshell V5.9.3.1 (abort with ^G)

1> io_lib:char_list([10100,10600,20100]).

false

R16下：

Eshell V5.10.1 (abort with ^G)

1> io_lib:char_list([10100,10600,20100]).

true

结果是截然相反，可想而知，如果写了这段代码，换个版本就可能运行有问题了。erlang的版本过渡还是有点粗放。

gen_server:cast()

gen_server在跨节点下发消息使用 noconnect ，这是正确的选择，可以参考这篇文章

但是，gen_server:cast 使用中可能会有问题。以下是 cast 的实现代码：

do_cast(Dest, Request) ->

do_send(Dest, cast_msg(Request)),

ok.

do_send(Dest, Msg) ->

case catch erlang:send(Dest, Msg, [noconnect]) of

noconnect ->

spawn(erlang, send, [Dest,Msg]);

Other ->

Other

end.

当连接不成功时，cast还会新起一个进程去发消息。这就算了，而且不带 noconnect，就是说还会尽最大可能把消息发出去。本来这里是没有不好，但是一般使用gen_server不会意识到有这个问题。在网络不理想的情况，就会莫名其妙多了很多进程，进程本身有最大数量限制。另外，消息发不出去，还是堆积在内存中。