]>
iEval git - slob.git/blob - ex.pl
4 my $slob = Slob
->new('t/freedict-01.slob');
6 my $nr_of_entries = $slob->ref_count; # if the same content has two
7 # keys pointing to it, this
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}";
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.041449 seconds and 5 git commands to generate.