18 lines
399 B
Erlang
18 lines
399 B
Erlang
|
-module(write).
|
||
|
|
-export([start/2, start/3]).
|
||
|
|
|
||
|
|
dump_file(F, Data, 0) ->
|
||
|
|
ok;
|
||
|
|
dump_file(F, Data, N) ->
|
||
|
|
bfile:fwrite(F, Data),
|
||
|
|
dump_file(F, Data, N - 1).
|
||
|
|
|
||
|
|
start(File, Data, N) ->
|
||
|
|
bfile:load_driver(),
|
||
|
|
{ok, F} = bfile:fopen(File, "w"),
|
||
|
|
dump_file(F, Data, N),
|
||
|
|
bfile:fclose(F).
|
||
|
|
start(File, N) ->
|
||
|
|
Data = list_to_binary(lists:duplicate(1000000, 10)),
|
||
|
|
start(File, Data, N).
|