Tipo de datos DATOS :: Tipo es un módulo Perl con datos versátiles y tipos de valor.
Descargar ahora

Tipo de datos Clasificación y resumen

Tipo de datos Etiquetas

Módulo perl datos Versátil datos versátiles tipos de valores

Tipo de datos Descripción

DATOS :: Tipo es un módulo Perl con datos versátiles y tipos de valor. DATOS :: Tipo es un módulo PERL con datos versátiles y tipos de valor. HSYNOPSIS Use DATOS :: Tipo QW (: todos); Use el error QW (: intente); intente {verifique $ correo electrónico, correo electrónico; Verifique $ Página de inicio, URI ('http'); Verifique $ CC, CREDITCARD ('MASTERCARD', 'VISA'); Verifique $ respuestas_a, yesno; Verificar $ género, género; Verifique 'uno', enum (qw (uno dos tres)); Verifique , set (QW (uno dos tres cuatro cinco cinco)); Verifique $ server_ip4, IP ('V4'); Verifique $ server_ip6, IP ('v6'); Verifique 'A35231AH1', CINS; Verifique '14565935', ISSN; Verifique 'de', langcode; Verifique 'alemán', langname; Verifique '012345678905', UPC (); Verifique '5276440065421319', CREDITCARD ('MasterCard')); Verifique 'ATGCAAAT', BIO :: ADN; Verifique 'Augarsgoaau', Bio :: ARN; Verifique '01001001110110101', binario; Verifique '0F 0C 0A', HEX; Verifique '0', definido; Verifique '234', NUM (20); Verifique '1', BOOL ('verdadero'); Verifique '100', int; Verifique '1.1', real; My $ foo = bendice ('123', 'algo'); Verifique $ foo, ref; Verifique $ foo, ref (QW (otra cosa)); Verifique , Ref ('Array'); Verify '' X 20, VarChar (20); Verifique '2001-01-01', fecha ('MySQL'); Verifique '1694 de noviembre 22:28:20 PST ', Fecha (' Cateparse '); Verifique '9999-12-3123:59:59', DateTime; Verifique '1970-01-0100:00:00', marca de tiempo; Verifique '-838: 59: 59', tiempo; Verifique '2155', año; Verifique '69', año (2); Verifique '0' x 20, TinyText; Verifique '0' x 20, mediumText; Verifique '0' x 20, texto largo; Verifique '0' x 20, texto; Verifique '80', puerto; Verifique 'www.cpan.org', dominio; } Tipo de captura :: Excepción con {My $ E = Cambio; printf "esperado '% s'% s en% s line% sn", $ e-> valor, $ e-> tipo-> información, $ e-> was_file, $ e-> was_line; Foreach My $ Entrada (TestPlan ($ e-> tipo)) {printf "texpecting it% s% s", $ entrada -> ? 'es': 'no es', $ Entrada -> -> Información (); }}; # lo creo o no, esto realmente funciona foreach (correo electrónico, palabra, tarjeta de crédito ('MasterCard', 'Visa'), Bio :: ADN, HEX) {IMPRIMIR $ _-> INFO; Imprimir $ _-> Uso; Imprimir $ _-> Exportar; # ¿Tiene otros nombres imprimir $ _-> param; # cuál es mi elección, es decir. Imprimir $ _-> ISA ('ITYPE :: Business'); # ¿Es un tipo de negocio relacionado? Imprimir $ _-> versión; # PRIMERA APPERANCIA EN DATOS :: Tipo de liberación} # Interfaz atada (Alias ​​'Typ') Trate de {Typ Enum (QW (ADN ARN)), (MIS $ A, MIS $ B); Imprimir "A está tipificado" si ittyp ($ a); $ a = 'ADN'; # $ Alias ​​solo acepta 'ADN' o 'ARN' $ A = 'ARN'; $ a = 'xna'; # lanza la excepción Uniyp ($ alias); Tipo de captura :: Excepción :: con {printf "esperado '% s'% s en% s line% sn", $ e-> valor, $ e-> tipo-> info, $ e-> was_file, $ e -> was_line; }; Dverify ($ correo electrónico, correo electrónico) o DIE $!; MIS $ g = DATOS :: Tipo :: Guardia-> Nuevo (Permitir => , # Benditos objetos de ese tipo pruebas => {correo electrónico => correo electrónico (1), # MXCHECK ON! Consulte el correo electrónico :: Valido FirstName => Word, Social_ID => , Contactos => Sub {My% args = @_; existe $ args {Lucy}},}); $ g-> inspeccionar ($ h); # Versión compacta Overified {correo electrónico => Correo electrónico (1), FirstName => Word}, ​​$ Object_a, $ Object_B; Imprimir TOC (); Catálogo de impresión (); Este módulo admite los datos versátiles y los tipos de valor. Fuera de lo común, es compatible con TIPOS paramenentes (como las bases de datos, tiene la I.E. VARCHAR (80)). Cuando intenta alimentar una variable escribida contra algunos datos impares, este módulo explica lo que habría esperado. Requisitos: · Perl

Tipo de datos Software relacionado