regex - 如何在 Perl 中进行链式正则表达式？

Question

我很高兴得知 Perl 可以在 5.32 版本中处理链式比较
但是，我正在尝试进行链式正则表达式比较，以使我的代码更短、更清晰

#!/usr/bin/env perl

use 5.032;
use strict;
use warnings FATAL => 'all';
use feature 'say';
use autodie ':all';

if (9 > 2 < 3 < 4 > 0) {
    say 'chained expressions work.'
} else {
    say 'chained expressions do not work.'
}

my $x = 4;
my $z = 4;

if ($x == 4 == $z) {
    say 'chained equality works';
}

$x = 'x';
$z = 'x';

if ($x eq 'x' eq $z) {
    say 'chained string comparisons work.';
}

$x = '.';
$z = './.';
if ($x =~ m/\./ =~ $z) { # unfortunately this doesn't work
# equivalent of `if ( ($x =~ m/\./) && ($z =~ m/\./)) {
    say 'chained regex works.';
} else {
    say 'no chained regex.'; 
}

如何正确使用正则表达式进行链式比较？

Answer 1

而100 <= $x < 200意思很明显，A =~ B =~ C才不是。哪些操作数应该是字符串？其中哪一个应该是匹配运算符？应该进行什么操作？
您建议在最终 =~ 的 RHS 上放置一个字符串匹配它，但不是这样 =~完全有效；该字符串始终在 LHS 上。 $s =~ /a/ =~ /b/可能是有道理的，但它会做什么仍然不明显，特别是如果有捕获。因此，这不受支持。
如果您想链接一些匹配项，可以使用以下选项:

all { $s =~ $_ } qr/a/, qr/b/

any { $s =~ $_ } qr/a/, qr/b/

none { $s =~ $_ } qr/a/, qr/b/

notall { $s =~ $_ } qr/a/, qr/b/

all { /a/ } $s1, $s2

any { /a/ } $s1, $s2

none { /a/ } $s1, $s2

notall { /a/ } $s1, $s2

核心模块List::Util提供的这些功能.