为什么我的 ack 正则表达式会得到额外的、意想不到的结果？

Question

我终于开始学习正则表达式并使用 ack 进行训练。我相信这使用 Perl 正则表达式。

我想匹配第一个非空白字符为 if (! 的所有行，元素之间有任意数量的空格。

这就是我想到的：

^[ \t]*if *\(\w+ *!

它几乎^[ \t]* 是错误的，因为它匹配一个或不匹配[空格或制表符]。 我想要的是匹配任何可能只包含空格或制表符（或不包含任何内容）的内容。

例如，这些不应该匹配：

// if (asdf != 0)
else if (asdf != 1)

How can I edit my regexp for that?

---

编辑添加命令行

ack -i --group -a '^\s*if *\(\w+ *!' c:/work/proj/proj 

注意单引号，我不再那么确定它们了。

我的搜索库是一个更大的代码库。它确实包含匹配表达式（相当多），但即使是例如：

274:                }else if (y != 0) 

，我通过上述命令得到的结果。

---

编辑添加mobrule测试的结果

Mobrule，感谢您为我提供了测试文本。我将在此处复制我在提示符中得到的内容：

C:\Temp\regex>more ack.test
# ack.test
if (asdf != 0)    # no spaces - ok
 if (asdf != 0)   # single space - ok
    if (asdf != 0) # single tab - ok
   if (asdf != 0) # multiple space - ok
        if (asdf != 0) # multiple tab - ok
    if (asdf != 0) # spaces + tab ok
     if (asdf != 0) # tab + space ok
     if (asdf != 0) # space + tab + space ok
// if (asdf != 0)  # not ok
} else if (asdf != 0) # not ok

C:\Temp\regex>ack '^[ \t]*if *\(\w+ *!' ack.test

C:\Temp\regex>"C:\Program\git\bin\perl.exe" C:\bat\ack.pl '[ \t]*if *\(\w+ *!' a
ck.test
if (asdf != 0)    # no spaces - ok
 if (asdf != 0)   # single space - ok
    if (asdf != 0) # single tab - ok
   if (asdf != 0) # multiple space - ok
        if (asdf != 0) # multiple tab - ok
    if (asdf != 0) # spaces + tab ok
     if (asdf != 0) # tab + space ok
     if (asdf != 0) # space + tab + space ok
// if (asdf != 0)  # not ok
} else if (asdf != 0) # not ok

问题出在我对 ack.bat 的调用中！

ack.bat 包含：

"C:\Program\git\bin\perl.exe" C:\bat\ack.pl %*

虽然我用插入符号调用，但它在调用 bat 文件时就消失了！

使用 ^^ 转义插入符号不起作用。

使用 " " 而不是 ' ' 引用正则表达式是有效的。我的问题是 DOS/win 问题，很抱歉打扰大家。

Answer 1

^\s*if\s*\(\S+\s*!

• 对于非空白，请使用 \S。 \w 不会匹配任何特殊字符，因此 if ($word 不会匹配。可能符合您的规范，在这种情况下 \w（字母数字加“_”
）就可以了

$ perl5.8 -e '{$s="else if (asdf \!= 1)"; if ($s =~ /^\s*if\s*\((\S+)\s*\!/) { print "|$1|\n";} else { print "NO MATCH\n";}}'
NO MATCH
$ perl5.8 -e '{$s="// if (asdf \!= 0)"; if ($s =~ /^\s*if\s*\((\S+)\s*\!/) { print "|$1|\n";} else { print "NO MATCH\n";}}'
NO MATCH
$ perl5.8 -e '{$s=" if (asdf \!= 0)"; if ($s =~ /^\s*if\s*\((\S+)\s*\!/) { print "|$1|\n";} else { print "NO MATCH\n";}}'  
|asdf|
$ perl5.8 -e '{$s="if (asdf \!= 0)"; if ($s =~ /^\s*if\s*\((\S+)\s*\!/) { print "|$1|\n";} else { print "NO MATCH\n";}}' 
|asdf|
$ perl5.8 -e '{$s="if (\$asdf \!= 0)"; if ($s =~ /^\s*if\s*\((\S+)\s*\!/) { print "|$1|\n";} else { print "NO MATCH\n";}}'
|$asdf|

Answer 2

在 ack 和 grep 中，* 匹配零个或多个，而不是零或一个。所以我认为你已经有了正确的解决方案。哪些测试用例没有给您想要的结果？

# ack.test
if (asdf != 0)    # no spaces - ok
 if (asdf != 0)   # single space - ok
    if (asdf != 0) # single tab - ok
   if (asdf != 0) # multiple space - ok
        if (asdf != 0) # multiple tab - ok
    if (asdf != 0) # spaces + tab ok
     if (asdf != 0) # tab + space ok
     if (asdf != 0) # space + tab + space ok
// if (asdf != 0)  # not ok
} else if (asdf != 0) # not ok

结果：

$ ack '^[ \t]*if *\(\w+ *!' ack.test
if (asdf != 0)    # no spaces - ok
 if (asdf != 0)   # single space - ok
        if (asdf != 0) # single tab - ok
   if (asdf != 0) # multiple space - ok
                if (asdf != 0) # multiple tab - ok
        if (asdf != 0) # spaces + tab ok
         if (asdf != 0) # tab + space ok
         if (asdf != 0) # space + tab + space ok

$ ack -v '^[ \t]*if *\(\w+ *!' ack.test
// if (asdf != 0)  # not ok
} else if (asdf != 0) # not ok

Answer 3

您可以尝试：

(?:\t*| *)if *\(\w+ *!

.

\t*| *

将是零个或多个制表符或零个或多个空格，而不是空格和制表符的混合。