正则表达式模式连接

Question

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

my $ pattern1 = qr/^/;

用这个：

my $ pattern2 = qr/ABC/

所以我得到了（这个值）吗？

qr/^ABC/

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

Answer 1

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

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

为了提高可读性，您可以使用/x修饰符并添加空格：

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

请注意，标量通常在$ sigil之后没有空格。