如何编写长正则表达式以适合屏幕？

Question

我在 Perl 中有匹配正则表达式。 分布超过一行的匹配句子。

我意识到如果我展开，我必须仅在一行中输入匹配正则表达式 多行失败：

$array_11 =~ m{By Steve (.*), MarketWatch LONDON (.*) -- Shares of Anglo American rallied on Monday morning as (.*) bet that the mining group will reject a (.*)};'

如果我将其写在多行中，它将无法匹配该字符串。

Answer 1

如前所述，您似乎正在寻找 x 修饰符。
该修饰符会忽略正则表达式中的所有空格，并允许注释（以 # 开头）。

就你而言，它有点丑陋，因为你必须替换所有空格
你确实想在正则表达式中通过 [ ]、\s 或 \s+ 进行匹配：

$array_11 =~ m{By \s+ Steve \s+ (.*), \s+
               MarketWatch \s+ LONDON \s+ (.*) \s+
               -- \s+ Shares \s+ of \s+ Anglo \s+ American \s+ 
               rallied \s+ on \s+ Monday \s+ morning \s+ as \s+ 
               (.*) \s+ bet \s+ that \s+ the \s+ mining \s+ 
               group \s+ will \w+ reject \w+ a \w+(.*)
              }x;

所以事实上我可能会写这样的内容：

my $sentence= q{By Steve (.*), MarketWatch LONDON (.*) }
            . q{-- Shares of Anglo American rallied on Monday morning as (.*) }
            . q{bet that the mining group will reject a (.*)}
            ;
my $array_11=~ m{$sentence};

最后一条评论：$array_11 有很强的代码味道，如果它是一个数组，然后使其成为一个数组，而不是几个标量变量。

Answer 2

您可能正在寻找 /x 修饰符。

来自 perldoc perlre：

x 通过允许空格和注释来扩展模式的易读性。

Answer 3

所有逃离的空间都非常丑陋且令人分心。 所以，这里有一个替代方案：

my ($pattern) = map { qr/$_/ } join q{ }, split q{ }, <<'EOP';
    Steve (.*), MarketWatch LONDON (.*) --
    Shares of Anglo American rallied on Monday morning
    as (.*) bet that the mining group will \w+ reject
    \w+ a \w+(.*)
EOP

$text =~ $pattern;

注意：我留下了 (.*) ，因为我不知道 OP 想要什么，但请参阅 Axeman 对 米罗德的回答。