regex - 使用安全#! $ 正则表达式中的变量？

Question

有人能告诉我，在@rx 中使用所有这些特殊字符是否安全？我关心的是 # ! 和 $。

如果不安全，我如何确保正则表达式不会解释 @rx 中的元素？

#!/usr/bin/perl
use strict;
use warnings;

my $doc = do { local $/; <STDIN> };

my @rx = (
    'mariadb:\n  build: ',
    '#!/bin/bash\n\n/usr/bin/mysqld_safe',
    'FROM centos:7',
    '#!/bin/sh\n# This is /usr/libexec/mariadb-',
    '#!/bin/bash\nVOLUME_HOME="/var/lib/mysql"',
    '#!/bin/bash\nMYSQL="/usr/bin/mysql -u$DB_ENV_DBUSER'
);

my @a = ();

foreach my $r (@rx) {
    push @a, $doc =~ /($r.{3000})/sg;
}

my $n = int(rand(999999999999999));
for my $i (0 ..$#a) {
    system("echo '$a[$i]' > ext$n$i");
}

Answer 1

您可以通过执行以下操作自动转义任何必要的字符:

push @a, $doc =~ /(\Q$r\E.{3000})/sg;

但是您的正则表达式可能无法正常工作；它只会在文件的第一部分找到您的字符串，如果它们扩展到最后 3000 个字符则不会。如果它们之间没有 3000 个其他字符，它也只会找到两次出现之一。这两个问题都可以通过以下方式解决:

push @a, $doc =~ /(?=(\Q$r\E.{0,3000}))/sg;