Énumération Encore une autre mise en uvre de la classe d'énumération
Télécharger maintenant

Énumération Classement & Résumé

Énumération Mots clés

Module Perl perl classer Énumération classe d'énumération

Énumération La description

Encore une autre mise en uvre de la classe d'énumération L'énumération est un module PERL qui fournit une classe d'énumération. Pour ceux d'entre vous qui ne connaissent pas ce concept à partir d'autres langues, une énumération est une classe dont les objets instanciés ne peuvent être attribués que des valeurs provenant d'une liste fixe.Il y a deux façons d'utiliser ce module. Typiquement, vous créerez une sous-classe qui hérite d'une énumération et qui spécifie la liste des valeurs admissibles. C'est très simple. Votre module de classe ne contiendra que trois lignes de code: # myenumeration.pm # colis myenumération; utiliser la base 'énumération'; __Backage __-> Set_Enumérations (QW (vert jaune rouge)); Les programmes utiliseront cette classe comme suit: # quelque_program.pl # utiliser la myenumération; # .... mon $ var = nouvelle myenumération (myenumération :: jaune); # ou juste: $ var = nouvelle myenumération; les utilisateurs de votre sous-classe peuvent choisir de disposer de tous vos symboles d'énumération importés dans leur espace de noms. Ils le font en utilisant la chaîne ': tout' sur la ligne d'utilisation: utilisez la myenumération ': tout'; # .... mon $ var = nouvelle myenumeration (jaune); l'autre moyen d'utiliser ce module est pour quand vous avez besoin d'une énumération ad-hoc au moment de l'exécution: # quelque_program.pl # mon $ var = nouvelle énumération qw ( Que ce soit amusant); Synopsis # habituellement, vous sous-classez l'énumération, et d'autres utiliseront votre sous-classe. utiliser yoursubclass; Utilisez votre classement ': tout'; # Importation de constantes de recensement # Méthodes de classe (utilisées lors de la sous-classement; voir ci-dessous) __Package __-> Set_Enumérations (qw (vert jaune rouge)); # Création $ var = nouvelle énumération (@allableable_values); $ var = neuf yoursubclass; $ var = neuf yoursubclass ($ initiale_value); # Définir la valeur $ var-> SET ($ NEW_VALUE); # (Remarque: le Freef est toujours autorisé) # retourne la valeur $ string = $ var-> valeur; # "Yoursubclass :: Enum_value" $ string = var-> Bare_Value; # "Enum_value" $ string = "$ var"; # idem comme -> Valeur # Comparer $ Boolean = $ var eq $ Quelque_value; $ boolean = $ var net $ one_value; $ booléen = $ var-> is_any (@List_of_POSSIBLE_Values); $ booléen = $ var-> is_none (@List_of_POSSIBLE_Values); # Testez si une valeur est un membre du SET $ Boolean = YourSubclass-> IS_ALEDABLE_VALUE ($ ONE_VALUE); $ boolean = $ var-> is_allicAdable_Value ($ ONE_VALUE); Exigences: · Perl

Énumération Logiciels associés