Tipo de dados Data :: Type é um módulo Perl com dados versáteis e tipos de valor.
Baixe Agora

Tipo de dados Classificação e resumo

Tipo de dados Tag

Módulo Perl. dados Versátil Dados versáteis Tipos de valor

Tipo de dados Descrição

Data :: Type é um módulo Perl com dados versáteis e tipos de valor. Dados :: Type é um módulo Perl com dados versáteis e tipos de valor .Synopsis Use dados :: Digite QW (: ALL); Use o erro QW (: tente); tente {verificar $ email, email; Verifique $ homepage, URI ('http'); Verifique $ CC, Creditcard ('MasterCard', 'Visa'); Verifique $ Resposta_A, Yesno; Verifique $ gênero, gênero; Verifique 'One', enum (QW (um dois três)); Verifique , set (QW (um dois três quatro cinco seis)); Verificar $ Server_IP4, IP ('V4'); Verificar $ Server_IP6, IP ('V6'); Verificar 'A35231AH1', CINS; Verificar '14565935', ISSN; verificar 'de', langcode; Verificar 'Alemão', LangName; verifique '012345678905', UPC (); Verificar '5276440065421319', Creditcard ('MasterCard')); Verificar 'ATGCAAAT', Bio :: DNA; Verifique 'Augggaaau', Bio :: RNA; verifique '01001001110110101', binário; Verifique '0F 0C 0A', hex; Verifique '0', definido; Verifique '234', num (20); Verifique '1', bool ('verdade'); Verifique '100', int; Verifique '1.1', real; meu $ foo = abençoe ('123', 'algo'); Verifique $ foo, ref; Verifique $ foo, ref (QW (outra coisa)); Verifique , ref ('array'); verifique '' x 20, varchar (20); Verificar '2001-01-01', data ('mysql'); Verificar '16 nov 9422:28:20 PST ', data (' DatamParse '); Verificar '9999-12-3123:59:59', DateTime; Verifique '1970-01-0100:00:00', timestamp; Verificar '-838: 59: 59', tempo; Verifique '2155', ano; Verifique '69', ano (2); Verifique '0' x 20, tinytext; Verifique '0' x 20, médio médio; Verifique '0' x 20, longtext; verifique '0' x 20, texto; Verifique '80', porto; verifique 'www.cpan.org', domínio; } Catch Type :: Exceção com {My $ E = Shift; Printf "esperado '% s'% s em% s linha% s sn", $ e-> valor, $ e-> tipo-> informação, $ e-> was_file, $ e-> was_line; foreach My $ Entry (Testplan ($ E-> Type)) {Printf "Texpecting IT% S% S", $ Entrada -> ? 'é': 'não é', $ Entrada -> -> Info (); }}; # Acredite ou não, isso realmente funciona foreach (e-mail, palavra, creditcard ('MasterCard', 'Visa'), Bio :: DNA, HEX) {Imprimir $ _-> Info; Imprimir $ _-> Uso; Imprimir $ _-> Exportar; # tem outros nomes imprimir $ _-> param; # O que é a minha escolha, i.e. Imprimir $ _-> ISA ( iType :: Business '); # é um tipo relacionado a negócios? Imprimir $ _-> Versão; # Primeiro Apperance no Data :: Digite Release} # Tied Interface (Alias 'Typ') Tente {Typ Enum (QW (RNA de DNA)), (meu $ A, meu $ B); Imprimir "A é Typ'ed" se ISTYP ($ A); $ a = 'DNA'; # $ ALIAS só aceita 'DNA' ou 'RNA' $ a = 'RNA'; $ a = 'xna'; # joga exceção Untyp ($ alias); } Tipo de Catch :: Exception :: com {Printf "esperado '% s'% s em% s linha% s sn", $ e-> valor, $ e-> tipo-> info, $ E-> was_file -> WAS_line; }; Dverify ($ email, e-mail) ou morrer $! Meu $ G = Data :: Tipo :: Guard-> Novo (Permitir => , # Objetos abençoados desse tipo de teste => {Email => Email (1), # mxcheck! Veja E-mail :: Valid FirstName => Word, Social_ID => , Contatos => sub {my% args = @_; existe $ args {lucy}},}); $ g-> Inspecionar ($ h); # Compacto Version Overify {Email => Email (1), FirstName => Word}, $ Object_A, $ Object_B; Imprimir TOC (); Catálogo de impressão (); Este módulo suporta dados versáteis e tipos de valor. Fora do comum suporta tipos parametrizados (como bancos de dados, isto é, varchar (80)). Quando você tenta alimentar uma variável digitada contra alguns dados ímpares, este módulo explica o que ele esperava. Requisitos: · Perl.

Tipo de dados Software Relacionado