use strict;
use Devel::Size qw(size);


my $df=500000;my $tf=3;
my $wektor = '';
my $packed = '';
my $nr=0;
for(0 .. $df)
{
   vec ($wektor, $nr++, 32) = $_; # DOC ID......
   vec ($wektor, $nr++, 32) = $tf;  # TF......
   for(0 .. $tf)
   {
    	vec ($wektor, $nr++, 32) = $_+10;  # POSITIONS
   }
}
print "Vector's size: " .
  size( $wektor ) . " bytes\n";



###################### UNPACK VECTOR2.....
my %vec;my %pos;
my $docID=0;
my $tf=0;
my $index=0;
my $order=1;
my $Aa=time();
for(0 .. $df)
{
		$docID = vec ($wektor, $index++, 32);
    	$tf = vec ($wektor, $index++, 32);
    	$vec{$docID}=$tf;
#    	print "Doc id: $docID\ttf: $tf\n";
    	for(0 .. $tf)
    	{
			my $last=vec ($wektor, $index++, 32);
                        $pos{$docID}{$last}=$order;
    	}    
}
print "unpack vector in \t",time()-$Aa,"  secs..\n";