我的代码是这样的：
if ( $var eq "str1" || $var eq "str2" || $var eq "str3" )
{
...
}
有没有办法优化这个。 我想要类似的东西：
if ( $var eq ["str1" || "str2" || "str3"] ) {...}
【问题讨论】：
标签： perl
根据字符串的内容，使用正则表达式非常方便：
if ($var =~ /^(str1|str2|str3)$/) { … }
如果做不到这一点，你可以用 grep 遍历一个列表：
if (grep { $var eq $_ } qw{str1 str2 str3}) { … }
【讨论】：
str1A、Astr2A 和 Astr3。
use strict; 与正则表达式无关，我已经解释了为什么需要 (?:...)。 (...) 也可以，但它的功能是捕获，这里没必要。
?: 对程序员来说是不必要的复杂性，因此是过早优化的情况。我只使用?: 以避免与预期捕获混淆。
【讨论】：
使用List::MoreUtils qw{any}
use List::MoreUtils qw{any};
if ( any { $var eq $_ } 'str1', 'str2', 'str3' ) {
...
}
这可能比使用grep 更快，因为List::MoreUtils::any 在找到匹配项时会提前完成，而grep 可能会构建完整的匹配项列表。我说“可能”是因为 Perl 可以优化if (grep ...。可能不会。但是List::MoreUtils::any 确实提前结束了，而且它比if (grep ... 成语更具描述性。
创建一个包含所有要匹配的字符串键的哈希
my %matcher;
@matcher{qw{str1 str2 str3}} = ();
if ( exists $matcher{$var} ) {
...
}
这有设置时间和用于哈希的内存成本的缺点，但优点是匹配时间更像 O(log N)。因此，如果您有很多不同的 $var 值要测试，那么总体上它可能会更快。
创建一个匹配所有字符串的正则表达式
if ( $var =~ m/^str[123]$/so ) {
...
}
好的，如果你的字符串字面意思是qw{str1 str2 str3}，这很好，但是如果它是一个任意字符串的列表呢？
您可以使用Regexp::Assemble 将正则表达式列表融合到一个优化的正则表达式中。
【讨论】：
对于固定字符串的列表，将您的列表转换为哈希。如果您要多次检查您的列表，并且您的列表变得更大，这将特别有用。
%on_my_list = map {; $_ => 1 } 'str1', 'str2', 'str3', ...;
if ($on_my_list{$var}) { ... }
【讨论】：
我是半开玩笑的，但这样就可以了：
use Quantum::Superpositions;
if ($x == any($a, $b, $c)) { ... }
【讨论】：