DATOS :: Diver DATOS :: Diver es un acceso simple y ad hoc a los elementos de estructuras profundamente anidadas.
Descargar ahora

DATOS :: Diver Clasificación y resumen

DATOS :: Diver Etiquetas

Módulo perl anidado estructuras conductor de datos estructuras anidadas

DATOS :: Diver Descripción

DATOS :: Diver es un acceso simple y ad hoc a los elementos de estructuras profundamente anidadas. DATOS :: Diver es un acceso simple y ad hoc a los elementos de estructuras profundamente anidadas. El buceador :: Diver proporciona las funciones de inmersión () y DiveVal () para el acceso ad-hoc a elementos de estructuras de datos profundamente anidados, y la diverteref ( ), DiveError (), Diveclear () y Divedie () Funciones de soporte. HSYNOPSIS Use DATOS :: Diver QW (Dive Diveref DiveError); My $ root = {top => ,} ,},],}; # Establece $ valor a 'sí' # ($ root -> {top} {segundo} {tecla} {tres} {existe}): My $ valor = buceo ($ raíz, qw (Top 1 Segunda clave 3 existe tres)); # Establece $ valor para UNDEF () porque "falta" no existe: $ valor = buceo ($ raíz, qw (la tecla de la segunda segunda segunda, tres faltantes); # Establece $ valor a undef () porque # $ root -> {top} {segundo} {tecla} está desactivado el final de la matriz: $ valor = buceo ($ root, qw (Top 1 segundo Clave 4 ...)); # Establece $ valor a undefef () porque # $ root -> {top} {segundo} {tecla} sería un error fatal: $ valor = buceo ($ raíz, qw (la clave de la segunda segunda -5 ...)); # Sets $ ref to $ root -> {top} {nuevo} {sub} (que crece # @ {$ raíz -> {top}} y autovitaciones dos hashes anónimos): My $ ref = diveref ($ root , QW (Top 9 nuevo sub)); # Die () S porque "otro" no es un número válido: $ ref = diveref ($ root, qw (top Otro ...)); # Hace: $ raíz -> {num} {1} {2} = 3; # (Autovivió los hashes a pesar de las teclas numéricas). Dival ($ raíz, (QW (NUM 12))) = 3; # Lo mismo: $ {diveref ($ raíz, 'num', 1, 2)} = 3; # Recupera el valor superior, $ valor = 3: $ valor = DiveVal ($ raíz, 'Num', 1, 2); # Lo mismo: $ valor = $ {diveref ($ raíz, (QW (NUM 12)))}; # Intenta hacer $ root -> {top} {1} y muere # porque $ raíz -> {top} es una referencia de matriz: diveref ($ raíz, 'top', 1); # Para autovivir solo en el último paso: $ ref = diveref (buceo ($ raíz, qw (la tecla 1 segundo 3 tres)), 'falta'); if ($ ref) {$$ ref = 'yo también'} else {my ($ nestedref, $ svkey, $ errdesc) = DiveError (); DIE "NO PODRÍA DERECHO DERECHO $ ​​NESEDEWIE VIA $$ SVKEY: $ ERRDESCN"; } Requisitos: · Perl

DATOS :: Diver Software relacionado