¿Cómo puedo crear un tipo de enumeración en Perl?

Question

Necesito devolver un valor enum en perl, ¿cómo puedo hacer esto? debe Does Perl have an enumeration type?

use strict; 

use constant { 
    HOME => 'home', 
    WORK => 'work', 
    MOBILE => 'mobile', 
}; 

my $phone_number->{type} = HOME; 
print "Enum: ".$phone_number->{type}."\n"; 

pero no este índice de retorno 0:

tirando de este hilo? o estoy entendiendo esto mal?

EDIT:

Así que sería algo como esto ser más esperable para un tipo de enumeración?

use strict; 

use constant { 
    HOME => 0, 
    WORK => 1, 
    MOBILE => 2, 
}; 

my $phone_number->{type} = HOME; 
print "Enum: ".$phone_number->{type}."\n"; 

editar # 2

También me gustaría para validar la opción seleccionada, pero pasar de nuevo a la Palabra en lugar de Valor. ¿Cómo puedo tener lo mejor de ambos ejemplos?

@VALUES = (undef, "home", "work", "mobile"); 

sub setValue { 

if (@_ == 1) { 
    # we're being set 
    my $var = shift; 
    # validate the argument 
    my $success = _validate_constant($var, \@VALUES); 

    if ($success == 1) { 
     print "Yeah\n"; 
    } else { 
     die "You must set a value to one of the following: " . join(", ", @VALUES) . "\n"; 
    } 
} 
} 

sub _validate_constant { 
# first argument is constant 
my $var = shift(); 
# second argument is reference to array 
my @opts = @{ shift() }; 

my $success = 0; 
foreach my $opt (@opts) { 
    # return true 
    return 1 if (defined($var) && defined($opt) && $var eq $opt); 
} 

# return false 
return 0; 
} 

Answer 1

Una constante no es una enumeración (en Perl, o en cualquier idioma que conozco)

No, porque aquí lo que está haciendo está insertando en la tabla símbolo un vínculo entre la clave HOME y el literal Home, esto también se llama bareword en lenguaje perl. La tabla de símbolos se implementa con un hash, y no hay un número equivalente de sus claves y el orden en que se agregaron.

En su ejemplo, lo que hace es establecer $perl_number->{type} = 'Home', y luego imprimir $phone_number->{type}.

Answer 2

Si desea enumeraciones, utilice el módulo enum.