17 lines
388 B
Erlang
17 lines
388 B
Erlang
|
-module(writeold).
|
||
|
|
-export([start/2, start/3]).
|
||
|
|
|
||
|
|
dump_file(F, Data, 0) ->
|
||
|
|
ok;
|
||
|
|
dump_file(F, Data, N) ->
|
||
|
|
file:write(F, Data),
|
||
|
|
dump_file(F, Data, N - 1).
|
||
|
|
|
||
|
|
start(File, Data, N) ->
|
||
|
|
{ok, F} = file:open(File, [raw, binary, write]),
|
||
|
|
dump_file(F, Data, N),
|
||
|
|
file:close(F).
|
||
|
|
start(File, N) ->
|
||
|
|
Data = list_to_binary(lists:duplicate(1000000, 10)),
|
||
|
|
start(File, Data, N).
|