Type de données Data :: Type est un module Perl avec des types de données et de valeurs polyvalents.
Télécharger maintenant

Type de données Classement & Résumé

Type de données Mots clés

Module Perl Les données Polyvalent Données polyvalentes Types de valeur

Type de données La description

Data :: Type est un module Perl avec des types de données et de valeurs polyvalents. Data :: Type est un module Perl avec des données et des types de valeur polyvalentes.Synopsis Utiliser des données :: Type QW (: Tous); Utilisez Erreur QW (: essayez); Essayez {Verify $ email, email; Vérifiez $ Page d'accueil, URI ('http'); Vérifiez $ CC, CreditCard ('MasterCard', «Visa»); Vérifier $ and ana, YesNo; Vérifier $ Genre, sexe; vérifier «un», enum (QW (un deux trois)); vérifier , définie (QW (un deux trois quatre cinq six)); Vérifiez $ Server_IP4, IP ('v4'); Vérifier $ Server_IP6, IP ('v6'); Vérifiez 'A35231AH1', CINS; Vérifiez '14565935', ISSN; Vérifiez 'DE', LANGCODE; Vérifiez «allemand», Langname; Vérifier '012345678905', UPC (); Vérifiez '5276440065421319', CreditCard ('MasterCard')); Vérifiez 'atgcaaat', bio :: ADN; Vérifiez 'Augggaaau', BIO :: ARN; Vérifiez '01001001110110101', binaire; Vérifiez '0f 0C 0A', hex; Vérifiez '0', défini; Vérifiez '234', num (20); Vérifiez «1», Bool («vrai»); Vérifiez '100', INT; Vérifiez '1.1', réel; mon $ foo = bénisse ('123', "quelque chose"); Vérifiez $ foo, réf; Vérifiez $ foo, ref (QW (autre autre)); Vérifiez , ref ("tableau"); Vérifiez '' x 20, Varchar (20); Vérifiez '2001-01-01', date (mysql '); Vérifier '16 nov 9422:28:20 PST ', date (' DateSarse '); Vérifier '9999-12-3123:59:59', DateTime; Vérifiez '1970-01-0100:00:00', horodatage; Vérifier '-838: 59: 59', heure; Vérifier «2155», année; Vérifier «69», année (2); Vérifiez '0' x 20, TinyText; Vérifiez '0' x 20, moyentext; Vérifiez '0' x 20, longtext; Vérifiez '0' x 20, texte; Vérifiez '80', port; Vérifiez 'www.cpan.org', domaine; } Type de capture :: Exception avec {My $ E = Shift; printf "attendu"% s '% s à% s line% sn ", $ e-> valeur, $ e-> type-> info, $ e--> was_file, $ e-line; foreach My $ Entrée (Testplan ($ E-> Type)) {Printf "TEXPECTER LE% SE% S", $ Entrée -> ? 'est': 'n'est pas', $ entrée -> -> info (); }}; # Croyez-le ou non, cela fonctionne vraiment pour les produits (e-mail, mot, carte de crédit, carte de crédit («Mastercard», «Visa»), Bio :: ADN, hex) {Print $ _-> info; Imprimer $ _-> Utilisation; Imprimer $ _-> exportation; # a-t-il d'autres noms d'impression $ _-> param; # Quels sont mon choix, c'est-à-dire que. Imprimer $ _-> ISA ('IType :: Business'); # Est-ce un type associé à une entreprise? Imprimer $ _--> Version; # Première adpeperance dans les données :: Type Requillage} # Interface nouée (alias 'typ') Essayez {tac Enum (qw (ADN ADN)), (My $ a, mon $ B); imprimer "A est typ'ed" si ISTYP ($ a); $ A = 'ADN'; # $ alias n'accepte que "ADN" ou "ARN" $ A = 'ARN'; $ a = 'xna'; # jette une exception non typographie ($ alias); } Type de capture :: Exception :: avec {Printf "attendu '% s'% S '% s à% s Line% Sn", $ E-> Valeur, $ E-> Type-> info, $ e-> info, $ e-> info -> was_line; }; DANDEFY ($ email, email) ou matrice $!; My $ g = data :: Type :: Guard-> Nouveau (Autoriser => , # Objets bénis de ce type Tests => {Email => Email (1), # MXCHECK ON! Voir email :: valide prénom => Word, social_id => , contacts => Sub {My% args = @_; existe $ args {lucy}}}); $ g-> inspecter ($ h); # Version compacte Overify {email => email (1), prénom => Word}, $ objet_a, $ objet_b; imprimer tac (); catalogue d'impression (); ce module prend en charge des types de données et de valeurs polyvalents. Hors de l'ordinaire, il prend en charge les types paramétrés (comme les bases de données ont I.e. Varchar (80)). Lorsque vous essayez de nourrir une variable dactylographiée contre certaines données étranges, ce module explique ce qu'il aurait attendu. Exigences: · Perl

Type de données Logiciels associés