根據一組值對變量進行測試

Question

在perl中，針對多個值測試變量的最佳方法是什麼？

這樣的事情（在僞代碼）：

if x is in {'q','w','e','r','t'} 
    # do something 

Answer 1

如何：

if (grep /^x$/, ('q', 'w','e','r','t')) { 
    # Do something 
} 

這個工作，如果你是比較值是標量（字符串或數字）。

對於字符串，有一個很好的簡寫：

if (grep /^x$/, qw(q w e r t y)) { 
    # Do something 
} 

如果你不喜歡的正則表達式表示法（/^x$/），有：

的grep {$ _ EQ 'X'} QW （qwerty）

你可以使用$_來測試任何東西，而不僅僅是平等。

如果你想要做的是簡單的（可以在一條線上來表示），只是這會做：

do_something if grep /^x$/, qw(q w e r t y) 

Answer 2

這就是"new"smart match operator可用於：

#!/usr/bin/env perl 

use strict; 
use warnings; 
use 5.10.0; 

my $thing = 'bar'; 
my @set  = qw(foo bar baz); 

say 'ok!' if $thing ~~ @set; 

輸出：

ok! 

注：這在古代版本的perl中不可用。在5.10之前，您想要使用grep，如other answer，或者如果您的設置非常大，請使用first of List::Util，因爲它不會在第一次匹配後迭代整個列表。