Считывание из файла

@Dazie · Регистрация: 17.09.2013

Студворк — интернет-сервис помощи студентам

Добрый вечер. Прошу помощи в реализации следующего задания:
________________________________________ ________________________________________ _____
Файл содержит список целых чисел, разделителем которых служат пробелы. Требуется создать модуль с функций, которая получает имя файла и возвращает кортеж из 2-х элементов:
• количество чисел в файле;
• сумма этих чисел.
________________________________________ ________________________________________ _______

На данный момент мной написан такой код:

Code
1
2
3
4
5
6
7
8
9
10
11
12
-module(main).
-export([num_count/1]).
 
num_count(File) -> 
{ok, Bin} = file:read_file(File),
num_count(Bin, {0, 0}, space).
 
num_count(<<>>, {N, S}, _) -> {N, S};
num_count(<<$ , Tail/binary>>, {N, S}, space) -> num_count(Tail, {N, S}, space);
num_count(<<A, Tail/binary>>, {N, S}, space) -> num_count(Tail, {N+1, S+A}, num);
num_count(<<$ , Tail/binary>>, {N, S}, num) -> num_count(Tail, {N, S}, space);
num_count(<<_ , Tail/binary>>, {N, S}, num) -> num_count(Tail, {N, S}, num).

Программа считает только количество чисел. А сумму считает как сумму кодов цифр, т.е. если записать в файл, например, 1, 2, 3, 4, 5, то прога посчитает сумму как 255, т.е. 49 + 50 + 51 + 52 + 53. Пожалуйста, помогите с данной проблемой. Пробовала использовать функции integer_to_list, binary_to_list, но при таких приведениях типов все равно не выходит. Заранее спасибо.

@Fyret · 21.09.2013, 01:47

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
-module(main).
-export([num_count/1]).
 
num_count( Filename ) -> 
    {Result, IoDevice} = file:open( Filename, [read] ),
    if
        Result == error -> throw({error, IoDevice});
        Result == ok -> count_and_sum( IoDevice, {0, 0} )
    end.
 
count_and_sum( IoDevice, {Count, Sum} ) ->
    case io:fread( IoDevice, [], "~d") of
        eof -> {Count, Sum};
        {ok, [Integer]} -> count_and_sum( IoDevice, {Count+1, Sum+Integer} );
        {error, Reason} -> io:format( "io:fread error: ~w~n", [Reason] ),
                           count_and_sum( IoDevice, {Count, Sum} )
    end.

@Dazie · 15.10.2013, 23:36 **[ТС]**

Еще раз здравствуйте. Возникла небольшая(я надеюсь), пробема. Требовалось расширить эту программу так, чтобы запросы поступали на сервер, созданный на основе патерна gen_server. Делалось по образцу, который дал преподаватель. В итоге у меня получился такой код:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
-module(server).
-behaviour(gen_server).
 
-export([start/1, stop/0]).
-export([count_and_sum/0]).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
 
start(Path) -> gen_server:start_link({local, server}, server, [Path], []).
 
count_and_sum() -> gen_server:call(server, {count_and_sum}).
 
stop() -> gen_server:cast(server, stop).
 
init([Path]) -> load(Path).
 
handle_call({count_and_sum}, _From, Bin) ->
    Ans = count_and_sum(Bin, {0,0}),
   {reply, Ans, Bin}.
 
handle_cast(stop, Bin) -> {stop, normal, Bin}.
   
terminate(normal, _Bin) -> ok.
 
handle_info(_Message, Bin) -> {noreply, Bin}.   
 
code_change(_,_,_) -> ok.
 
 
load( Path ) -> 
    {Result, IoDevice} = file:open( Path, [read] ),
    if
        Result == error -> throw({error, IoDevice});
        Result == ok -> {ok, {IoDevice}}
 
    end.
count_and_sum( IoDevice, {Count, Sum} ) ->
    case io:fread( IoDevice, [], "~d") of
        eof -> {Count, Sum};
        {ok, [Integer]} -> count_and_sum( IoDevice, {Count+1, Sum+Integer} );
        {error, Reason} -> io:format( "io:fread error: ~w~n", [Reason] ),
                           count_and_sum( IoDevice, {Count, Sum} )
    end.

который выдает следующую ошибку при вызове метода count_and_sum:

=ERROR REPORT==== 15-Oct-2013::23:16:42 ===
** Generic server server terminating
** Last message in was {count_and_sum}
** When Server state == {<0.34.0>}
** Reason for termination ==
** {function_clause,
[{server,terminate,
[{function_clause,
[{io,request,[{<0.34.0>},{fread,[],"~d"}]},
{server,count_and_sum,2},
{server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p,5}]},
{<0.34.0>}]},
{gen_server,terminate,6},
{proc_lib,init_p,5}]}
** exception exit: function_clause
in function server:terminate/2
called as server:terminate({function_clause,
[{io,request,[{<0.34.0>},{fread,[],"~d"}]},
{server,count_and_sum,2},
{server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p,5}]},
{<0.34.0>})
in call from gen_server:terminate/6
in call from proc_lib:init_p/5

Объясните пожалуйста, в чем ошибка, и, если не сложно, помогите устранить пожалуйста.

@Fyret · 19.10.2013, 11:10

Dazie, извиняюсь за большую задержку, я редко заглядываю в этот раздел форума.
Ошибка, как мне представляется, состоит в том, что Вы в качестве данных сервера передаете [Path] (строка 9), и с этими же данными вызываете count_and_sum/2 (строка 18). А там нужен результат вызова file:open.

Я предлагаю вообще ничего не давать серверу в качестве его данных. А имя файла, где нужно вычислить сумму чисел, передавать в запросе. Код:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
-module(server).
-behaviour(gen_server).
 
-export([start/0, stop/0]).
-export([num_count/1]).
-export([init/1, terminate/2, handle_call/3, handle_cast/2, code_change/3, handle_info/2]).
 
% обслуживание сервера
start() ->
    gen_server:start_link({local, server}, server, [], []).
    
stop() ->
    gen_server:cast(server, stop).
    
% обслуживание клиентов
num_count(Filename) ->
    gen_server:call(server, {num_count, Filename}).
    
% функции обратного вызова
init(_Data) ->
    {ok, null}.
    
terminate(_Reason, _Data) ->
    ok.
    
handle_cast(stop, Data) ->
    {stop, normal, Data}.
    
handle_call({num_count, Filename}, _From, Data) ->
    {Result, IoDevice} = file:open( Filename, [read] ),
    if
        Result == error ->
            {reply, {error, IoDevice}, Data};
        Result == ok ->
            {reply, count_and_sum(IoDevice, {0, 0}), Data}
    end.
    
code_change(_, State, _) ->
    {ok, State}.
    
handle_info(_, State) ->
    {noreply, State}.
    
% вспомогательная функия
count_and_sum( IoDevice, {Count, Sum} ) ->
    case io:fread( IoDevice, [], "~d") of
        eof -> {Count, Sum};
        {ok, [Integer]} -> count_and_sum( IoDevice, {Count+1, Sum+Integer} );
        {error, _} -> count_and_sum( IoDevice, {Count, Sum} )
    end.

@Dazie · 19.10.2013, 16:32 **[ТС]**

Fyret, боьшое спасибо за помощь

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Dazie 0 / 0 / 0 Регистрация: 17.09.2013 Сообщений: 3
	19.10.2013, 16:32 [ТС]
	Fyret, боьшое спасибо за помощь 0