Perl：使用 smartmatch 操作根据值数组搜索字符串

Question

考虑一个字符串，例如响应标头：HTTP/1.1 404 Not Found。

我很好奇您是否可以使用 smartmatch (~~ or double tilde) operator 和正则表达式的组合来搜索不完整的匹配项或匹配项的子集。

my $head    = q{HTTP/1.1 404 Not Found};
my @success = (200, 201);
my @failure = (404, 409);

# Array First
say q{Success} if @success ~~ $head;
say q{Fail}    if @failure ~~ $head;

# Array Second
say q{Success} if $head ~~ @success ;
say q{Fail}    if $head ~~ @failure ;

我知道这可以通过某种循环、grep 或映射来完成；但我正在调查~~ 能做什么和不能做什么的可能性。

文档非常具有描述性，并且对于大多数 lhs/rhs 条件似乎遵循 对于 [all in left side] == [all in right side] 评估的返回 true。 p>

也就是说，如果$head 只是它会匹配的数字（例如$head=q{200}）。

---

预期结果类似于：

my $head      = q{HTTP/1.1 201 OK};
my @success   = qw(200 201);
say q{Success} if grep{$head =~ /$_/ } @success;

Answer 1

正如 Schwern 之前指出的，智能匹配运算符目前被标记为实验性/已弃用^[1]，因此不建议切换到智能匹配运算符。

此外，无论如何构建一个正则表达式可能会更好。

my @success = (200, 201);
my @failure = (404, 409);

my $success_pat = join '|', map quotemeta, @success;
my $failure_pat = join '|', map quotemeta, @failure;

my $success_re = qr/$success_pat/;
my $failure_re = qr/$failure_pat/;

say q{Success} if $head =~ $success_re;
say q{Fail}    if $head =~ $failure_re;

---

1. 对于每个特定的 THING ~~ THING 应该做什么一直存在分歧，因此 Perl 正在朝着更清晰的方向发展，可能类似于 Smart::Match 的 THING ~~ FUNC(THING) 方法。