正则表达式模式连接

Regex pattern concatenation

是否有可能以某种方式连接这个:

my $ pattern1 = qr/^/;

有了这个:

my $ pattern2 = qr/ABC/

所以我得到这个(的值)?

qr/^ABC/

语法可能不同,我只想实现这个结果。

您可以轻松连接正则表达式:

say /$pattern1$pattern2/ for 'ABC', 'XABC';

为了提高可读性,您可以使用 /x 修饰符并添加一个 space:

say / $pattern1 $pattern2 /x for qw( ABC XABC );

请注意,标量通常在 $ 标记后不带 space。