dets bag example

store.erl

#!/usr/bin/env escript

main(_) ->
	dets:open_file(store, [{type, bag}, {file, 'store'}]),
	dets:insert(store, {a, a}),
	dets:insert(store, {a, b}),
	dets:insert(store, {a, c}),
	dets:insert(store, {b, b}),
	dets:insert(store, {c, a}),	
	dets:insert(store, {c, b}),
	lists:foreach(fun(Query) ->
		io:format("query is: '~p'. result is: ~p~n", [Query, dets:match(store, {'$1', Query})])
	end, [a, b, c]),
	dets:close(store).

output:

query is: 'a'. result is: [[a],[c]]
query is: 'b'. result is: [[a],[b],[c]]
query is: 'c'. result is: [[a]]