如何解决正则表达式中的嵌套量词？

Question

陷入困境

my $count=grep {/$str_check/} @arr_name ;

何时

$str_check = 'C/C++'

抛出Nested quantifiers in regex; marked by <-- HERE in m/'C/C++ <-- HERE '/ at acr_def_abb_use.pl line 288

我试过换成

my $count=grep {/"$str_check"/} @arr_name ;

和

my $count=grep {/'$str_check'/} @arr_name ;

但两者都没有奏效。请任何人帮我解决这个问题。

Answer 1

您需要生成与文本匹配的正则表达式模式。具体来说，您需要C/C\+\+。

my $text  = 'C/C++';
my $pat   = quotemeta($text);
my $count = grep { /$pat/ } @arr_name;

或

my $text  = 'C/C++';
my $count = grep { /\Q$text\E/ } @arr_name;

（\E可以省略，因为它在最后。）

Answer 2

我无法重现您的问题，但最好将quotemeta用于特殊字符：

use warnings;
use strict;

my @arr_name = ('dgsdjhg','bar C/C++ foo', 'bbbb', 'C/C++');
my $str_check = quotemeta 'C/C++';
my $count = grep { /$str_check/ } @arr_name;
print "$count\n";