Ate :: Array :: QueueExPire Ate una matriz sobre un Tokyocabinet BTee DB
Descargar ahora

Ate :: Array :: QueueExPire Clasificación y resumen

Ate :: Array :: QueueExPire Etiquetas

Módulo perl Formación Atadura btree Btree DB Tokiocabinet

Ate :: Array :: QueueExPire Descripción

Atar una matriz sobre un tokyocabinet btree db TIE :: Array :: QueueExpire es un módulo Perl que requiere tiempo :: contrataciones, Tokyocabinet (Módulo de base de datos y Perl). La inserción es MS única (0.001 segundos). La función de la matriz normal presente se presenta PUSH POP SHIFT sale de la incansable transparente Scalar (pero pone los datos 1 Segundo antes de la primera entrada) La siguiente función no está completamente iPlement. Empalme La siguiente función no se implementa. Extender Tienda StoreSizethe La siguiente función es específica de este módulo. Último primer vencimiento Optimizar Push Fetchsynopsis Uso TIE :: Array :: QueueExPire; My $ T = TIE (MI @MyArray, "Tie :: Array :: QueuexPire", '/tmp/db_test.bdb'); PUSH @MYARRAY, INT RAND 1000; # Función de matriz normal My $ DATA = SHIFT @MyArray; My $ DATA = POP @MYArray; Imprimir "Este Elem existe "Si (existe ($ MYARRAY )); imprime" Tamaño = ". Scalar (@myArray)". "; # Uso del empuje con un parámetro adicional para poner el nuevo elemento en Futur # también devolver la tecla del valor insertado para (1 .. 10) {Di" T = ". Tiempo '. '. int (($ t-> empuje ($ _' '. Tiempo, 10)) / 1000); Dormir 1;} Dormir 10; # obtener los elementos caducados (7 segundos antes de ahora) MY $ EX = $ T -> caducar (7); # obtener los elementos vencidos mi @exp = @ {$ t-> caducar ($ exp)}; # obtener y eliminar los elementos caducados (20 segundos antes de ahora) $ ex = $ t-> caducar (20,1); mi @exp = @ {$ t-> caduca ($ exp, 1)}; # Fetch Element # en contexto escalar devuelva el valor # en el contexto de la matriz de regreso en el primer elemento la tecla y en segundo lugar, el valor my $ a = $ t-> fetch (6); mi @b = $ t-> fetch (6); # La matriz normal Fetch está siempre en modo escalar My @ C = $ MYARRAY ; DIGA DUMPER ( $ a); DIGA DUMPER (@B); DIGA DUMPER (@c); Requisitos: · Perl

Ate :: Array :: QueueExPire Software relacionado