| Hash :: tipo Hash :: Type Module contiene pseudo-hashes como matrices atadas a un "tipo" (Lista de campos). |
Descargar ahora |
Hash :: tipo Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Laurent Dami
- Sitio web del editor:
- http://search.cpan.org/~dami/
Hash :: tipo Etiquetas
Hash :: tipo Descripción
Hash :: Type Módulo contiene pseudo-hashes como matrices atadas a un "tipo" (Lista de campos). Hash :: Type Módulo contiene pseudo-hashes como matrices atadas a un "tipo" (Lista de campos) .Synopsis Use Hash :: Type; # Crear un hash :: Type My $ PERSULTYPE = NUEVO HASH :: Tipo (QW (Nombre de la ciudad de Apellido)); # Crear y rellenar algunos hashes atados a $ PERSULTYPE TIE% WOLFGANG, $ PERSULTYPE, "Wolfgang Amadeus", "Mozart", "Salzburgo"; $ ludwig = NUEVO $ PERSULTYPE ("Ludwig", "Van Beethoven", "Viena"); $ jsb = nuevo $ PERSULTYPE; $ jsb -> {ciudad} = "leipzig"; @ {$ jsb} {qw (primer nombre apellido)} = ("Johann Sebastian", "Bach"); # Agregar campos Dinámicamente $ PERSULTYPE-> Agregar ("Nacimiento", "Muerte") o Morir "Campos no agregados"; $ wolfgang {nacimiento} = 1750; # Más completo ejemplo: Lea un archivo plano con encabezados en la primera línea My ($ Headerline, @Datalines) = mapa {chomp; PS MY $ HT = NEW HASH :: Tipo (Split / T /, $ Headerline); foreach My $ line (@datalines) {My $ DATA = NEW $ HT (Split / T /, $ Line); work_with ($ DATA -> {SAINFIELD}, $ DATA -> {SENOTHERFIELD}); } # Una alternativa al tiempo :: GMTIME Y TIEMPO :: LOCALTE MY $ TIMETYPE = NUEVO HASH :: Type QW (Sec Min Hore May MON AÑO AÑO WDAY YDAY); MY $ LOCALTE = NUEVO $ TIMETYPE (Tiempo local); My $ GMTIME = NUEVO $ TIMETYPE (GMTIME); Imprimir $ LOCALIETE -> {HORA} - $ GMTIME -> {HORA}, "Diferencia horaria a GMT"; # Funciones de comparación My $ BYAGE = $ PERSULTYPE-> CMP ("Nacimiento: -num, apellido, primer nombre"); My $ bynamelength = $ PERSULTYPE-> CMP (apellido => {longitud ($ b) longitud ($ a)}, apellido => 'alfa', firstname => 'alfa'); Showperson ($ _) foreach (Ordenar $ byage @people); Showperson ($ _) foreach (Ordene $ bynamelenge @people); # comparaciones especiales: Fechas My $ US_DATECMP = $ MYHASHTYPE-> CMP ("Somededfield: M / D / Y"); My $ fr_inversedatecmpmp = $ MyHashType-> CMP ("Somededfield: -d.m.y"); Requisitos: · Perl
Hash :: tipo Software relacionado