的Perl：从grep的

Question

得到精确匹配，我匹配2个数组的内容是这样的：

foreach $headerLine(@headerLines) 
{ 
    if (grep { $headerLine =~ /$_/} @filterLines) 
    { 
     #do something 
    } 
} 

我在这里需要一个确切的匹配，但^$_$不起作用。我该如何解决它？

Answer 1

如果您想要完全匹配，则不需要正则表达式。

if (grep { $headerLine eq $_ } @filterLines) 
{ 
    #do something 
} 

你原来的问题很可能是$_有特殊的正则表达式字符，这些字符将被视为正则表达式的语法，而不是符合这些文字字符。例如，如果$_是...它将匹配任何三个字符，而不是确切字符串...。如果变量不包含有效的正则表达式语法（例如$_ = '('），这也可能导致错误。

你可以绕过这与\Q...\E报价字面结构：

if (grep { $headerLine =~ /^\Q$_\E$/} @filterLines) 
{ 
    #do something 
}