Tie::Queuefor Linux 0.19

Tie an ARRAY over a TokyTyrant DB and allow to push, pop shift data.<br /> <br />Tie::Queue requires TokyoTyrant (database and Perl module.) If the serialisation is required, the module Data::Serilizer is also required<br /> <br />The normal ARRAY function present are<br /> <br /> push<br /> pop<br /> shift<br /> exists<br /> scalar<br /> storesize ( to allow undef @a)<br /> <br />Specific function<br /> <br /> CLEAR<br /> SYNC<br /> REPAIR<br /> <br />The following function are not implemented.<br /> <br /> EXTEND<br /> STORE<br /> DELETE<br /> SPLICE<br /><br />SYNOPSIS<br /><br /> use Tie::Queue;<br /> use Data::Dumper;<br /><br /> ## Queue creation<br /> # This queue is not re-initialised at each execution of the script<br /> # the default namespace is 'Tie-Queue'<br /> # and each item are non serialized<br /> tie my @a, 'Tie::Queue', '127.0.0.1', 1978, 0;<br /><br /> # This queue is NOT re-initialised at each execution of the script<br /> # and each item are non serialized<br /> # the namespace is 'second_queue'<br /> tie my @b, 'Tie::Queue', '127.0.0.1', 1978, 1 , 0 , 'second_queue';<br /><br /> ## put some data in the queue<br /> for ( 101 .. 110 )<br /> {<br /> push @a, $_;<br /> }<br /><br /> for ( 1001 .. 1005 )<br /> {<br /> push @ab, $_;<br /> }<br /><br /> push @b, 'some text';<br /> push<br /> ## show the content of the queue<br /> print Dumper( @a );<br /> ## print the size of the queue<br /> print "size of array=". scalar @a. "<br />";<br /> ## remove the latest pushed element from the queue ( the newest)<br /> $res1 = pop @a;<br /> print "latest element $res1<br />";<br /> print "size of array=". scalar @a. "<br />";<br /> print Dumper( @a );<br /> $res2 = $a[3];<br /> print "element 3 = $res2<br />";<br /> ## remove the first element from the queue ( the oldest )<br /> $res3 = shift @a;<br /> print "first element $res3<br />";<br /> print "size of array=". scalar @a. "<br />";<br /> print Dumper( @a );<br /> if ( exists $a[4] )<br /> {<br /> print "elem 4 exists<br />";<br /> }<br /> else<br /> {<br /> print "elem 4 NOT exists<br />";<br /> }<br /><br /> if ( exists $a[40] )<br /> {<br /> print "elem 40 exists<br />";<br /> }<br /> else<br /> {<br /> print "elem 40 is NOT existing<br />";<br /> }<br /><br /><br /> (tied @a)->CLEAR;<br /> print "size of array=". scalar @a. "<br />";<br /><br /> ########################<br /> # this queue is re-initialised at each execution of the script<br /> # and each item are serialized<br /> # and the name space is 'third_queue_serialized'<br /> tie my @c, 'Tie::Queue', '127.0.0.1', 1978, 1 , 1 , 'third_queue_serialized';<br /> my %test = ( a => 'key_a', b => 'key_B' , c => 3 );<br /> print Dumper(%test);<br /> push @d , %test;<br /> my $r = pop @d;<br /> print Dumper($r)<br /> #######################

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Array Dquot,  Dumper,  Element,  Execution,  Exists,  Existsquot,  Function,  Linux,  Module,  Print,  Queue,  Queuefor,  Queuefor Linux,  Quotelem,  Quotquot,  Quotsize,  Reinitialised,  Scalar,  Script,  Serialized,  Shift,  Tie,  Tie Qu,  Tie Queuefor,  Tiequeue
Users rating:	0/10