Jak utworzyć typ wyliczenia w Perlu?

Question

Muszę odrzucić wartość wyliczenia w perlu, jak mogę to zrobić?

ciągnąc z tego wątku: 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"; 

ale nie powinien tego indeksu powrotną 0? czy rozumiem to źle?

EDIT:

Więc coś w tym być bardziej expectable dla typu enum?

use strict; 

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

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

EDIT # 2

Również chciałbym potwierdzić od wybranej opcji, ale przechodzą z powrotem Słowo, a następnie wartość. Jak mogę uzyskać najlepsze z obu przykładów?

@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

Stała nie jest enum (w Perlu, lub jakikolwiek język znam)

Nie, bo tu co robisz jest wstawianie w tabeli symbol związek między klucz HOME i literalny Home, jest to również nazywane bareword w języku perl. Tablica symboli jest zaimplementowana za pomocą skrótu i ​​nie ma odpowiednika numeru swoich kluczy i kolejności, w jakiej zostały dodane.

W twoim przykładzie to, co robisz, to ustawienie $perl_number->{type} = 'Home', a następnie wydrukowanie $phone_number->{type}.

Answer 2

Aby uzyskać wyliczenia, należy użyć modułu enum.