Làm cách nào để tạo kiểu enum trong Perl?

Question

Tôi cần trả lại giá trị enum trong perl, làm cách nào tôi có thể thực hiện việc này?

kéo từ chủ đề này: 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"; 

nhưng không nên chỉ số lợi nhuận này 0? hoặc tôi hiểu điều này sai?

EDIT:

Vì vậy, điều gì đó như thế này có thể mong đợi hơn đối với loại enum?

use strict; 

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

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

EDIT # 2

Ngoài ra tôi muốn kiểm tra vào tùy chọn chọn nhưng vượt qua trở lại Lời thay vì sau đó giá trị. Làm thế nào tôi có thể có tốt nhất của cả hai ví dụ?

@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

Một hằng không phải là một enum (trong perl, hoặc bất kỳ ngôn ngữ tôi biết)

Không, bởi vì ở đây những gì bạn đang làm được chèn trong bảng biểu tượng một mối liên hệ giữa phím HOME và chữ số Home theo nghĩa đen, số này cũng được gọi là bareword theo cách nói perl. Bảng biểu tượng được thực hiện với một băm, và không có số tương đương với các khóa của nó và thứ tự chúng được thêm vào.

Trong ví dụ của bạn, những gì bạn đang làm là đặt $perl_number->{type} = 'Home' và sau đó in ra $phone_number->{type}.

Answer 2

Nếu bạn muốn có enums, hãy sử dụng mô-đun enum.