Question

我正在关注Joe Armstrong的书Programming Erlang, 2nd Edition，我们在那里制作文件服务器。

我的代码：

-module(afile_server).
-author("harith").

%% API
-export([start/1]).

start(Dir) ->  spawn(afile_server, loop, [Dir]).

loop(Dir) ->
    receive
        {Client, list_dir}  ->
            Client ! {self(), file:list_dir(Dir)};
        {Client, {get_file, File}}  ->
            File_Path = filename:join(Dir, File),
            Client ! {self(), file:read_file(File_Path)}
    end,
    loop(Dir).

我们可以看到，loop是一种私有方法，不应暴露给外界。现在当我运行这个时，我得到：

1> FileServer = afile_server:start(".").
<0.33.0>

=ERROR REPORT==== 3-Jan-2015::06:58:56 ===
Error in process <0.33.0> with exit value: {undef,[{afile_server,loop,["."],[]}]}

2>

但是当我将loop公开为：

-module(afile_server).
-author("harith").

%% API
-export([start/1, loop/1]).

start(Dir) ->  spawn(afile_server, loop, [Dir]).

loop(Dir) ->
    receive
        {Client, list_dir}  ->
            Client ! {self(), file:list_dir(Dir)};
        {Client, {get_file, File}}  ->
            File_Path = filename:join(Dir, File),
            Client ! {self(), file:read_file(File_Path)}
    end,
    loop(Dir).

然后运行良好：

1> FileServer = afile_server:start(".").
<0.33.0>
2>

spawn是否要求该方法公开？我想是的，因为它运行它：

afile_server:loop(Dir)

但我想确保没有其他错误。

Answer 1

如果你使用spa生成M：F：A你被迫设置循环公式。

你可以这样避免它：

-module(afile_server).
-export([start/1]).

start(Dir) ->  spawn(fun() -> loop(Dir) end).

loop(Dir) ->
    receive
        {Client, list_dir}  ->
            Client ! {self(), file:list_dir(Dir)};
        {Client, {get_file, File}}  ->
            File_Path = filename:join(Dir, File),
            Client ! {self(), file:read_file(File_Path)}
    end,
    loop(Dir).

如果您的方法没有参数，您也可以使用：

spawn(fun loop/0),

使用M版本的一个很好的理由：F：A在于，无论何时加载同一模块的新版本，都会调用此新版本。否则你将继续调用旧模块。

Answer 2

导出函数的另一个原因是，即使它在同一个模块中，使用spawn创建一个全新的上下文和环境，因此必须调用导出的函数是合理的。 / p>

Erlang：强迫公开方法，为什么？

2 个答案: