比较Perl中的多个字符串

Question

我的代码是这样的:

if ( $var eq "str1" || $var eq "str2" || $var eq "str3" )
{
...
}

反正有没有优化这个.我想要的东西:

if ( $var eq ["str1" || "str2" || "str3"] ) {...}

Answer 1

根据字符串的内容,正则表达式非常方便:

if ($var =~ /^(str1|str2|str3)$/) { … }

如果做不到这一点,您可以查看列表:

if (grep { $var eq $_ } qw{str1 str2 str3}) { … }

Answer 2

在Perl 5.10或更高版本中:

if ($var ~~ [qw( str1 str2 str3 )]) { ...} 

该~~运营商做了智能匹配它的参数之间.