Queue::Q4M 0.00019

Queue::Q4M is a simple Perl wrapper to q4m, which is an implementation of a queue using mysql.<br /><br />SYNOPSIS<br /><br /> use Queue::Q4M;<br /><br /> my $q = Queue::Q4M- >connect(<br /> connect_info = > [<br /> 'dbi:mysql:dbname=mydb',<br /> $username,<br /> $password<br /> ],<br /> );<br /><br /> for (1..10) {<br /> $q- >insert($table, %fieldvals);<br /> }<br /><br /> while ($q- >next($table)) {<br /> my ($col1, $col2, $col3) = $q- >fetch($table, @fields);<br /> print "col1 = $col1, col2 = $col2, col3 = $col3n";<br /> }<br /><br /> while ($q- >next($table)) {<br /> my $cols = $q- >fetch_arrayref($table, @fields);<br /> print "col1 = $cols- >[0], col2 = $cols- >[1], col3 = $cols- >[2]n";<br /> }<br /><br /> while ($q- >next($table)) {<br /> my $cols = $q- >fetch_hashref($table, @fields);<br /> print "col1 = $cols- >{col1}, col2 = $cols- >{col2}, col3 = $cols- >{col3}n";<br /> }<br /><br /> # to use queue_wait(table_cond1,table_cond2,timeout)<br /> while (my $which = $q- >next(@table_conds)) {<br /> # $which contains the table name<br /> }<br /><br /> $q- >disconnect;

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Col Quot,  Fields,  Gtcol,  Gtcol Quot,  Gtdisconnect,  Gtfetch Arrayreftable,  Gtfetch Hashreftable,  Gtnexttable,  Gtnexttable Conds,  Print,  Q4m,  Queue,  Queue Waittable Cond Table Cond Timeout,  Queueq,  Quot,  Quotcol,  Simple,  Table
Users rating:	0/10