]> iEval git - slob.git/blame - ex.pl
Bump version and update Changes
[slob.git] / ex.pl
CommitLineData
d3779104
MG
1
2 use feature qw/:5.14/;
3 use Slob;
4 my $slob = Slob->new('t/freedict-01.slob');
5
6 my $nr_of_entries = $slob->ref_count; # if the same content has two
7 # keys pointing to it, this
8 # counts it twice
9
10 my $second_ref = $slob->seek_and_read_ref(4);
11 say "Entry is for $second_ref->{key}";
12 say "Data is in bin $second_ref->{bin_index} at position $second_ref->{item_index}";
13
14 my $bin = $slob->seek_and_read_storage_bin($second_ref->{bin_index});
15 say "Bin has ", (scalar @{$bin->{positions}}), " entries";
16 say "Value at position $second_ref->{item_index} is ",
17 $slob->get_entry_of_storage_bin($bin, $second_ref->{item_index});
This page took 0.023692 seconds and 4 git commands to generate.