Tie::Array::QueueExpire for Linux 1.01

Tie::Array::QueueExpire is a Perl module that requires Time::HiRes, TokyoCabinet (database and perl module.) The insertion is ms unique ( 0.001 seconds ).<br /> <br />The normal ARRAY function present are<br /> <br /> push<br /> pop<br /> shift<br /> exits<br /> scalar<br /> clear<br /> unshift (but put data 1 second before the first entry)<br /><br />The following function is not completely iplemented.<br /> <br /> splice<br /> <br />The following function are not implemented.<br /> <br /> extend<br /> store<br /> STORESIZE<br /><br />The following function are specific of this module.<br /> <br /> LAST<br /> FIRST<br /> EXPIRE<br /> OPTIMIZE<br /> PUSH<br /> FETCH<br /><br />SYNOPSIS<br /><br /> use Tie::Array::QueueExpire;<br /> my $t = tie( my @myarray, "Tie::Array::QueueExpire", '/tmp/db_test.bdb' );<br /> push @myarray, int rand 1000;<br /> <br /> # normal ARRAY function<br /> my $data = shift @myarray;<br /> my $data = pop @myarray;<br /> print "this elem exists<br />" if (exists( $myarray[6]));<br /> print "size = ". scalar( @myarray )."<br />";<br /> <br /> # using the PUSH with an extra parameter to put the new element in futur<br /> # also return the key of the inserted value<br /> for ( 1 .. 10 )<br /> {<br /> say "t=".time.' '. int (($t->PUSH( $_ . ' ' . time, 10 ))/1000);<br /> sleep 1;<br /> }<br /> sleep 10;<br /> # Get the expired elements ( 7 seconds before now )<br /> my $ex = $t->EXPIRE( 7 );<br /> <br /> # Get the expired elements<br /> my @EXP = @{$t->EXPIRE($exp)};<br /> # Get and delete the expired elements ( 20 seconds before now )<br /> $ex = $t->EXPIRE(20,1);<br /> my @EXP = @{$t->EXPIRE($exp,1)};<br /> <br /> # fetch element<br /> # in scalar context return the value<br /> # in array context return in first element the key and in second, the value<br /> my $a =$t->FETCH(6);<br /> my @b = $t->FETCH(6);<br /> # the normal array fetch is always in scalar mode<br /> my @c=$myarray[6];<br /> say Dumper( $a );<br /> say Dumper( @b );<br /> say Dumper( @c );

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Array,  Array Queueexpire,  Dumper,  Element,  Elements,  Expired,  Fetch,  Function,  Linux,  Module,  Myarray,  Normal,  Print,  Queueexpire,  Queueexpire Linux,  Return,  Scalar,  Seconds,  Sleep,  Tie,  Tie Array,  Tie Array Queueexpire,  Tiearrayqueueexpire
Users rating:	0/10