Ate :: Queue Ate una matriz sobre un DB TokyTyrant
Descargar ahora

Ate :: Queue Clasificación y resumen

Ate :: Queue Etiquetas

base de datos Módulo perl Formación Atadura Base de datos TokyTyrant Tokia

Ate :: Queue Descripción

Atar una matriz sobre un tokytyrant db Ate una matriz sobre un DB de TokyTyrant y deje presionar, los datos de turnos POP. TIE :: Cola requiere Tokyotyrant (Módulo de base de datos y Perl). Si se requiere la serialización, se requiere que los datos del módulo :: Serilizer también se requiere que la función de matriz normal presente se encuentre PUSH POP THIFT EXISTE TIENERTE SCALAR (PARA PERMITIRAR UNDEF @A) Función específica Clear Reparación de sincronización La siguiente función no se implementa. Extender Store Eliminar Splicesynopsis Uso Uso Lazo :: Queue; Usa datos :: Dumper; ## Creación de cola # Esta cola no se vuelve a inicializar en cada ejecución del script #, el espacio de nombres predeterminado es el # "Cola de corbata" y cada elemento no es serializado atada mi @a, 'Tie :: Queue', '127.0. 0.1 ', 1978, 0; # Esta cola no se vuelve a inicializar en cada ejecución del script # y cada elemento no son serializados # El espacio de nombres es 'Second_Queue' © © @b, 'Tie :: Queue', '127.0.0.1', 1978, 1, 0, 'Second_Queue'; ## Ponga algunos datos en la cola para (101 .. 110) {Push @a, $ _; } para (1001 .. 1005) {Push @ab, $ _; } Push @b, 'algún texto'; Push ## Muestre el contenido de la cola de impresión Dumper (@A); ## Imprime el tamaño de la cola de impresión "Tamaño de Array =". escalar @a. " ";# Retire el último elemento empujado de la cola (el más nuevo) $ res1 = pop @a; imprimir" el último elemento $ res1 "; Imprimir" Tamaño de Array = ". Scalar @a". "; Imprimir Dumper (@A); $ Res2 = $ A ; Imprimir" Elemento 3 = $ res2 "; ## Retire el primer elemento de la cola (el más antiguo) $ res3 = Shift @a; imprimir" Primer elemento $ res3 "; Imprimir" Tamaño de Array = ". Scalar @a". "; Imprimir Dumper (@a); Si (existe $ a ) {impresión" Elem 4 existe ";} else {imprimir" Elem 4 no existe ";} Si (existe $ a ) {impresión" Elem 40 existe ";} else {imprimir" Elem 40 no existe ";} (atado @a) -> claro; Imprimir" Tamaño de Array = ". Scalar @a". "; ################### # Esta cola se vuelve a inicializar en cada ejecución del script # y cada elemento está serializado # y el espacio de nombre es 'tercero_queue_serialized' corbata mi @c, 'Tie :: Queue', '127.0.0.1', 1978, 1, 1, 'Third_Queue_Serialized'; mi% prueba = (a => 'key_a_b', b => 'key_b' , c => 3); imprimir dumper (\% prueba); push @d, \% prueba; mi $ r = pop @d; dumper de impresión ($ r) ################### ########## Requisitos: · Perl

Ate :: Queue Software relacionado